(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    190955,       3997]
NotebookOptionsPosition[    186869,       3925]
NotebookOutlinePosition[    187262,       3941]
CellTagsIndexPosition[    187219,       3938]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "\[Alpha]", ",", " ", "xm", ",", " ", "\[Rho]bl", ",", " ", "\[Rho]br", ",",
    " ", "\[Sigma]", ",", " ", "\[Rho]", ",", " ", "\[Delta]", ",", " ", "b", 
   ",", " ", "yrm", ",", " ", "\[CapitalDelta]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<Party platform adjustment model\>\"", "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Set", " ", "working", " ", "directory", " ", "to", " ", "replication", 
    " ", "archive", " ", "by", " ", "uncommenting", " ", "the", " ", 
    "following", " ", 
    RowBox[{"line", "."}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"SetDirectory", "[", "\"\<\>\"", "]"}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"two", " ", "parties"}], ",", " ", 
    RowBox[{"L", " ", "and", " ", "R"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"two", " ", "factions", " ", "in", " ", "each", " ", "party"}], 
     ";", " ", 
     RowBox[{
      RowBox[{"(", "E", ")"}], "xtreme", " ", "and", " ", 
      RowBox[{"(", "M", ")"}], "oderate"}]}], ",", " ", 
    RowBox[{
    "each", " ", "of", " ", "which", " ", "can", " ", "propose", " ", 
     "policies", " ", "if", " ", "running", " ", "the", " ", "party"}]}], " ",
    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\[CapitalDelta]", " ", "=", " ", 
    RowBox[{
    "difference", " ", "between", " ", "moderate", " ", "platforms", " ", 
     "in", " ", "L", " ", "and", " ", "R"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\[Delta]", " ", "=", " ", 
    RowBox[{
    "difference", " ", "between", " ", "moderate", " ", "and", " ", "extreme",
      " ", "platforms", " ", "in", " ", "each", " ", "party"}]}], " ", "*)"}],
   "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\[Delta]x", " ", "=", " ", 
    RowBox[{
    "difference", " ", "between", " ", "moderate", " ", "and", " ", "extreme",
      " ", "median", " ", "voter", " ", "ideology"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"qi", " ", "=", " ", 
     RowBox[{
     "probability", " ", "of", " ", "each", " ", "median", " ", "voter", " ", 
      "ideological", " ", "position"}]}], ",", " ", 
    RowBox[{"from", " ", "L", " ", "to", " ", "R"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\[Rho]", " ", "=", " ", 
    RowBox[{
    "probability", " ", "of", " ", "each", " ", "faction", " ", "getting", 
     " ", "the", " ", "valence", " ", "bump", " ", 
     RowBox[{"(", 
      RowBox[{"only", " ", "one", " ", "faction", " ", "gets", " ", "it"}], 
      " "}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"b", " ", "=", " ", 
    RowBox[{"size", " ", "of", " ", "the", " ", "valence", " ", "bump"}]}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"w", " ", "=", " ", 
    RowBox[{"value", " ", "of", " ", "office"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"pj", " ", "=", " ", 
    RowBox[{"platform", " ", "for", " ", "party", " ", "j"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"yj", " ", "=", " ", 
    RowBox[{
    "ideal", " ", "policy", " ", "for", " ", "a", " ", "party", " ", "j", " ",
      "candidate"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "candidates", " ", "care", " ", "about", " ", "winning", " ", "and", " ", 
    "policy", " ", "conditional", " ", "upon", " ", "winning"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"candidates", " ", "choose", " ", 
    RowBox[{"platforms", " ", "--"}], " ", "needed", " ", "to", " ", "get", 
    " ", "variation", " ", "in", " ", "movement", " ", "based", " ", "on", 
    " ", "election", " ", "outcomes"}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"All", " ", "voters", " ", "care", " ", "about", " ", 
    RowBox[{"policy", ".", "  ", "General"}], " ", "election", " ", "decided",
     " ", "by", " ", "a", " ", "national", " ", "decisive", " ", "voter", " ",
     "with", " ", "ideal", " ", "point", " ", "x", " ", "who", " ", "cares", 
    " ", "about", " ", "valence", " ", "and", " ", "a", " ", "partisan", " ", 
    "shock", " ", 
    RowBox[{"\[Phi]", " ", "\\", 
     RowBox[{
      RowBox[{"in", " ", "[", 
       RowBox[{
        RowBox[{"-", "\[Alpha]"}], ",", " ", "\[Alpha]"}], "]"}], ".", "  ", 
      "Voter"}]}], " ", "has", " ", "linear", " ", "utility", " ", "over", 
    " ", "ideology", " ", "and", " ", 
    RowBox[{"valence", "."}]}], "  ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Voter", "'"}], "s", " ", "ideal", " ", "point", " ", "moves", 
     " ", "around", " ", "over", " ", "time"}], ",", " ", 
    RowBox[{
     RowBox[{"with", " ", "x"}], " ", "=", " ", 
     RowBox[{"xm", " ", "-", " ", "\[Delta]x"}]}], ",", " ", "xm", ",", " ", 
    RowBox[{"xm", " ", "+", " ", 
     RowBox[{
     "\[Delta]x", " ", "\[IndentingNewLine]", "with", " ", "probability", " ",
       "q1"}]}], ",", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", "q1", "-", "q3"}], ")"}], ",", " ", 
    RowBox[{"and", " ", "q3"}], ",", " ", 
    RowBox[{
     RowBox[{"respectively", ".", "  ", "Could"}], " ", "set", " ", "these", 
     " ", "so", " ", "that", " ", 
     RowBox[{"qi", "'"}], "s", "\[IndentingNewLine]", " ", "are", " ", 
     "biased", " ", "toward", " ", "current", " ", "position", " ", "as", " ",
      "in", " ", "our", " ", "primaries", " ", 
     RowBox[{"paper", "."}]}]}], "  ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Each", " ", "party", " ", "has", " ", "a", " ", "decisive", " ", "voter",
      " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"not", " ", "in", " ", "a", " ", "faction"}], ",", " ", 
       RowBox[{
       "but", " ", "ideologically", " ", "halfway", " ", "between", 
        "\[IndentingNewLine]", " ", "them"}]}], ")"}], " ", "who", " ", 
     "chooses", " ", "which", " ", 
     RowBox[{"faction", "'"}], "s", " ", "candidate", " ", "represents", " ", 
     "party"}], ",", " ", 
    RowBox[{
    "with", " ", "probability", "\[IndentingNewLine]", " ", "of", " ", 
     "selection", " ", "\[Sigma]", " ", "corresponding", " ", "to", " ", 
     "size", " ", "of", " ", "selectorate"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "valence", " ", "bump", " ", "b", " ", "is", " ", "observed", " ", "by", 
     " ", "decisive", " ", "voter", " ", "and", " ", "can", " ", "make", " ", 
     "her", " ", "prefer", " ", "one", " ", "candidate", " ", "to", " ", 
     RowBox[{"another", ".", "  ", "Bump"}], " ", "goes", " ", "to", " ", 
     "only", " ", "one", " ", "faction", " ", "with", " ", 
     RowBox[{"prob", ".", " ", "\[Rho]"}]}], " ", "<", " ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"as", " ", "in", " ", "our", " ", "primaries", " ", "paper"}], 
       ")"}], ".", "  ", "If"}], " ", "party", " ", "median", " ", 
     RowBox[{"doesn", "'"}], "t", " ", "get", " ", "to", " ", "choose", " ", 
     "then", " ", "existing", " ", "faction", " ", "stays", " ", "in", " ", 
     RowBox[{"power", ".", "  ", "Suppose"}], " ", "initially", " ", "that", 
     " ", "valence", " ", "bump", " ", "is", " ", "reset", " ", "by", " ", 
     "nature", " ", "every", " ", 
     RowBox[{"period", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{
    RowBox[{
    "SEQUENCE", "\[IndentingNewLine]", "1", "  ", "Valence", " ", "bump", " ",
      "revealed", " ", "simultaneously", " ", "in", " ", "each", " ", "party",
      "\[IndentingNewLine]", "2", "  ", "Nature", " ", "simultaneously", " ", 
     "chooses", " ", "in", " ", "challenger", " ", "party", " ", "whether", 
     " ", "existing", " ", "faction", " ", "is", " ", "candidate", " ", 
     RowBox[{"or", " ", "'"}], "decisive", " ", 
     RowBox[{"voter", "'"}], " ", "chooses", " ", "candidate", 
     "\[IndentingNewLine]", "3", "  ", "Decisive", " ", "voter", " ", 
     "chooses", " ", "which", " ", 
     RowBox[{"faction", "'"}], "s", " ", "candidate", " ", "to", " ", 
     "nominate"}], ",", " ", 
    RowBox[{"if", " ", 
     RowBox[{"s", "/", "he"}], " ", "is", " ", "able", " ", 
     "\[IndentingNewLine]", "4", "  ", "Candidates", " ", "from", " ", "each",
      " ", "party", " ", "choose", " ", "platforms", " ", "simultaneously", 
     RowBox[{"(", 
      RowBox[{"no", " ", "commitnment", " ", "in", " ", 
       RowBox[{"the", " ", "'"}], 
       RowBox[{"primary", ".", "'"}]}], ")"}], "\[IndentingNewLine]", "5", "  ",
      "Nature", " ", "determines", " ", "general", " ", "election", " ", 
     "median", " ", "voter", " ", "with", " ", "probability", " ", "q1"}], 
    ",", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", "q1", "-", "q3"}], ")"}], ",", " ", 
    RowBox[{
    "q3", "\[IndentingNewLine]", "6", "  ", "Median", " ", "chooses", " ", 
     "election", " ", "winner"}]}], "\[IndentingNewLine]", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Victory", " ", "probabilities"}], ",", " ", 
    RowBox[{"given", " ", "chosen", " ", "party", " ", "platforms"}]}], " ", 
   "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrRwin", "[", 
   RowBox[{"pl_", ",", "bl_", ",", "pr_", ",", "br_", ",", "xm_"}], "]"}], ":=", 
  RowBox[{
   FractionBox["1", "2"], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"xm", "-", "pr"}], ")"}], "+", "br", "+", 
     RowBox[{"(", 
      RowBox[{"xm", "-", "pl"}], ")"}], "-", "bl"}], 
    RowBox[{"2", " ", "\[Alpha]"}]]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrLwin", "[", 
    RowBox[{"pl_", ",", "bl_", ",", "pr_", ",", "br_", ",", "xm_"}], "]"}], ":=", 
   RowBox[{"1", "-", 
    RowBox[{"PrRwin", "[", 
     RowBox[{"pl", ",", "bl", ",", "pr", ",", "br", ",", "xm"}], "]"}]}]}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Need", " ", "to", " ", "assume", " ", "\[Alpha]", " ", "large", " ", 
    "enough", " ", "to", " ", "ensure", " ", "interior", " ", 
    RowBox[{"solution", "!"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Platforms", " ", "are", " ", "candidate", " ", "ideal", " ", "points"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Lsolution", "[", "yl_", "]"}], ":=", "yl"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Rsolution", "[", "yr_", "]"}], ":=", "yr"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Party", " ", 
     RowBox[{"voter", "'"}], "s", " ", 
     RowBox[{"problem", ":", " ", 
      RowBox[{
      "since", " ", "indifferent", " ", "between", " ", "ideologies"}]}]}], 
    ",", " ", 
    RowBox[{
    "always", " ", "choose", " ", "more", " ", "moderate", " ", "faction", 
     " ", "unless", " ", "the", " ", "extreme", " ", "guy", " ", "has", " ", 
     "a", " ", "valence", " ", "bump", " ", "b"}], ",", " ", 
    RowBox[{
    "which", " ", "happens", " ", "with", " ", "probability", " ", 
     "\[Rho]"}]}], " ", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
   "\"\<Difference in platforms chosen by the moderate and extreme factions: \
\>\"", ",", 
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{"Rsolution", "[", 
       RowBox[{"yr", " ", "+", " ", "\[Delta]"}], "]"}], "-", 
      RowBox[{"Rsolution", "[", "yr", "]"}]}], "]"}], ",", " ", 
    "\"\<; need b to be larger than this in order for party decisive voter to \
prefer the extremist when it has the valence bump.\>\""}], "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Note", " ", "that", " ", "if", " ", "this", " ", "decisive", " ", 
     "voter", " ", "is", " ", "foresighted"}], ",", " ", 
    RowBox[{
    "then", " ", "we", " ", "may", " ", "need", " ", "b", " ", "to", " ", 
     "be", " ", "even", " ", "larger", " ", "since", " ", "she", " ", "may", 
     " ", "be", " ", "concerned", " ", "about", " ", "choosing", " ", "an", 
     " ", "extremist", " ", 
     RowBox[{"who", "'"}], "d", " ", "last", " ", "for", " ", "a", " ", 
     "long", " ", 
     RowBox[{"time", ".", "  ", "We"}], " ", "can", " ", "work", " ", "this", 
     " ", "out", " ", 
     RowBox[{"later", "."}]}]}], " ", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "Print", "[", 
   "\"\<This implies that the probability of choosing extreme faction is \
\[Sigma] \[Rho].\>\"", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Define", " ", "prob", " ", "victory", " ", "in", " ", "terms", " ", "of",
      " ", "yl"}], ",", " ", "yr", ",", " ", 
    RowBox[{"and", " ", "xm", " ", "from", " ", "solution", " ", 
     RowBox[{"above", ".", " ", "Take"}], " ", "expectation", " ", "over", 
     " ", "realizations", " ", "of", " ", "the", " ", "valence", " ", 
     RowBox[{"bump", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrRwiny", "[", 
   RowBox[{
   "yl_", ",", "yr_", ",", "xm_", ",", " ", "pbl_", ",", " ", "pbr_"}], "]"}],
   ":=", 
  RowBox[{
   FractionBox["1", "2"], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"xm", "-", "yr"}], ")"}], "+", 
     RowBox[{"pbr", " ", "b"}], "+", 
     RowBox[{"(", 
      RowBox[{"xm", "-", "yl"}], ")"}], "-", 
     RowBox[{"pbl", " ", "b"}]}], 
    RowBox[{"2", " ", "\[Alpha]"}]]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrLwiny", "[", 
    RowBox[{
    "yl_", ",", "yr_", ",", "xm_", ",", " ", "pbl_", ",", " ", "pbr_"}], 
    "]"}], " ", ":=", " ", 
   RowBox[{"1", "-", 
    RowBox[{"PrRwiny", "[", 
     RowBox[{
     "yl", ",", " ", "yr", ",", " ", "xm", ",", " ", "pbl", ",", " ", "pbr"}],
      "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "In", " ", "one", " ", "extension", " ", "of", " ", "the", " ", "game"}], 
    ",", " ", 
    RowBox[{
    "we", " ", "allow", " ", "the", " ", "probability", " ", "that", " ", 
     "the", " ", "winner", " ", 
     RowBox[{"(", "victor", ")"}], " ", "and", " ", "loser", " ", 
     RowBox[{"(", "defeated", ")"}], " ", "have", " ", "the", " ", 
     "opportunity", " ", "to", " ", "change", " ", "platforms", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
       "regardless", " ", "of", " ", "\[Sigma]", " ", "and", " ", "the", " ", 
        "valence", " ", "draws"}], ")"}], ".", " ", "These"}], " ", 
     "probabilities", " ", "are", " ", "denoted", " ", "sv", " ", 
     RowBox[{"(", "victor", ")"}], " ", "and", " ", "sd", " ", 
     RowBox[{
      RowBox[{"(", "defeated", ")"}], ".", " ", "In"}], " ", "the", " ", 
     "baseline", " ", "game", " ", "they", " ", "are", " ", "equivalent", " ",
      "to", " ", "1."}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "The", " ", "conditional", " ", "probability", " ", "of", " ", "receiving",
     " ", "the", " ", "valence", " ", "bump", " ", "is", " ", "different", 
    " ", "depending", " ", "on", " ", "the", " ", "faction", " ", 
    RowBox[{"states", ".", " ", "We"}], " ", "define", " ", "the", " ", 
    "expectation", " ", "of", " ", "b", " ", "over", " ", "realizations", " ",
     "of", " ", "the", " ", "valence", " ", "bump", " ", "as", " ", "a", " ", 
    "function", " ", "of", " ", "incumbency", " ", "status", " ", 
    RowBox[{"(", 
     RowBox[{"indicated", " ", "sv", " ", "or", " ", "sd"}], ")"}], " ", "as",
     " ", 
    RowBox[{"follows", "."}]}], "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mm\[Rho]", "[", "i_", "]"}], " ", ":=", " ", 
  RowBox[{"\[Rho]", " ", "/", " ", 
   RowBox[{"(", 
    RowBox[{"1", " ", "-", " ", 
     RowBox[{"i", " ", "\[Sigma]", " ", "\[Rho]"}]}], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"me\[Rho]", "[", "i_", "]"}], " ", ":=", " ", 
  "1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"em\[Rho]", "[", "i_", "]"}], " ", ":=", " ", 
  RowBox[{"\[Rho]", "/", 
   RowBox[{"(", 
    RowBox[{"1", "-", "\[Rho]"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ee\[Rho]", "[", "i_", "]"}], " ", ":=", " ", 
  RowBox[{"\[Rho]", " ", "/", 
   RowBox[{"(", 
    RowBox[{"1", " ", "-", " ", 
     RowBox[{"i", " ", "\[Sigma]"}], " ", "+", " ", 
     RowBox[{"i", " ", "\[Sigma]", " ", "\[Rho]"}]}], ")"}], 
   "\[IndentingNewLine]"}]}]}], "Input",
 CellChangeTimes->{{3.699188368789226*^9, 3.699188383971231*^9}, {
   3.699188840795341*^9, 3.699188845873983*^9}, {3.699189364586307*^9, 
   3.699189422854616*^9}, {3.69918977817765*^9, 3.699189783966058*^9}, {
   3.6991898149524384`*^9, 3.699189818819751*^9}, {3.6991900450523357`*^9, 
   3.6991900497201443`*^9}, {3.699190096486884*^9, 3.699190134093956*^9}, {
   3.6991901860463457`*^9, 3.699190229486162*^9}, {3.699190262743499*^9, 
   3.6991902856756783`*^9}, {3.699190729067165*^9, 3.699190785775482*^9}, {
   3.6991909492953243`*^9, 3.699190987591278*^9}, {3.699218169548236*^9, 
   3.6992181739118357`*^9}, {3.699267059340495*^9, 3.699267084604837*^9}, {
   3.699267714448327*^9, 3.699267717946226*^9}, {3.699277486732201*^9, 
   3.699277527349416*^9}, {3.699277790359861*^9, 3.699277806465522*^9}, {
   3.699277859588469*^9, 3.6992779830149117`*^9}, {3.699278022689053*^9, 
   3.699278174121297*^9}, {3.6992782195884247`*^9, 3.69927829919932*^9}, {
   3.699291998900755*^9, 3.699292065413452*^9}, {3.6992921471618843`*^9, 
   3.699292284662672*^9}, {3.6992924391692677`*^9, 3.6992924405667953`*^9}, {
   3.699293889758095*^9, 3.69929391663715*^9}, {3.699294098441822*^9, 
   3.699294112308465*^9}, {3.6992941528454847`*^9, 3.699294185656699*^9}, {
   3.699294244075242*^9, 3.699294289623926*^9}, {3.699296594695808*^9, 
   3.699296785411203*^9}, {3.699297230910411*^9, 3.699297324089258*^9}, {
   3.699297399605715*^9, 3.6992974017015333`*^9}, {3.6992975816582003`*^9, 
   3.699297584255007*^9}, {3.699297632041604*^9, 3.699297653924493*^9}, {
   3.699297688506365*^9, 3.699297692685842*^9}, {3.699298087504513*^9, 
   3.699298101700122*^9}, {3.699298184218392*^9, 3.699298219491548*^9}, {
   3.699298259837531*^9, 3.699298265562965*^9}, {3.699298716931855*^9, 
   3.699298752238502*^9}, {3.699298787148424*^9, 3.699298808600257*^9}, {
   3.699298916380577*^9, 3.699298932900033*^9}, {3.699299058954714*^9, 
   3.699299150190783*^9}, {3.699299196885765*^9, 3.699299232587891*^9}, {
   3.699299264156604*^9, 3.699299310553681*^9}, {3.699299369148795*^9, 
   3.6992994153440247`*^9}, {3.6992998018127537`*^9, 3.699299843547328*^9}, {
   3.699299906770809*^9, 3.699300084149815*^9}, {3.699300188721739*^9, 
   3.699300441762104*^9}, {3.6993005668736677`*^9, 3.6993006619439697`*^9}, {
   3.699300905082018*^9, 3.699300977449231*^9}, {3.699301232325583*^9, 
   3.699301262736466*^9}, {3.699303940891592*^9, 3.6993039547511272`*^9}, {
   3.699337042758432*^9, 3.699337230009156*^9}, {3.6993373095828447`*^9, 
   3.699337359147654*^9}, {3.699337535929007*^9, 3.699337580531109*^9}, {
   3.699337613279832*^9, 3.699337772462129*^9}, {3.699337802807188*^9, 
   3.6993378726296473`*^9}, {3.699337915023613*^9, 3.699337960241456*^9}, {
   3.699337999128056*^9, 3.699338073652217*^9}, {3.6993381095012503`*^9, 
   3.699338120566835*^9}, {3.699338174585237*^9, 3.6993382757309713`*^9}, {
   3.699342247365148*^9, 3.6993423656685667`*^9}, {3.699342465299218*^9, 
   3.69934258249288*^9}, {3.699342633172392*^9, 3.6993426595942383`*^9}, {
   3.699343944010704*^9, 3.699344062977536*^9}, 3.699344093623796*^9, {
   3.6993441434133253`*^9, 3.6993441717319193`*^9}, {3.699344244982182*^9, 
   3.699344267288703*^9}, {3.699344691391262*^9, 3.69934469498402*^9}, {
   3.699347036557238*^9, 3.699347049509111*^9}, {3.69936171842389*^9, 
   3.699361723780176*^9}, 3.6993624106419697`*^9, {3.699362636860327*^9, 
   3.699362659356895*^9}, {3.6993630162063093`*^9, 3.6993630187904787`*^9}, {
   3.699363534939383*^9, 3.6993635430227613`*^9}, 3.6993638789587793`*^9, {
   3.699363999142366*^9, 3.699364087051146*^9}, {3.699364136177929*^9, 
   3.699364180968576*^9}, {3.699364976720828*^9, 3.6993650202915983`*^9}, {
   3.6994234368131857`*^9, 3.699423445563452*^9}, {3.699423479754035*^9, 
   3.699423539334585*^9}, {3.699423581889044*^9, 3.699423582068262*^9}, {
   3.699423618382104*^9, 3.6994238836370068`*^9}, {3.699423965695497*^9, 
   3.699424038225994*^9}, {3.699424302287944*^9, 3.699424340496229*^9}, {
   3.7008504574594507`*^9, 3.700850673819837*^9}, {3.700850731914363*^9, 
   3.700850795512191*^9}, {3.700850844091969*^9, 3.700850891894046*^9}, 
   3.7008674622951517`*^9, {3.70086752509792*^9, 3.700867526379822*^9}, {
   3.700870063003294*^9, 3.7008700927663927`*^9}, {3.700870467707817*^9, 
   3.700870485714411*^9}, {3.700948016060061*^9, 3.700948025879137*^9}, {
   3.7009480613258266`*^9, 3.700948096451226*^9}, {3.700948181336751*^9, 
   3.7009482043043127`*^9}, {3.70094848462398*^9, 3.700948541139298*^9}, {
   3.700948994425523*^9, 3.70094899444625*^9}, 3.700949271954689*^9, {
   3.700954919779462*^9, 3.700954989085528*^9}, 3.701046979072949*^9, {
   3.701047131935584*^9, 3.701047133536703*^9}, 3.7010483329688597`*^9, {
   3.701051523572053*^9, 3.701051526561091*^9}, {3.701055046486883*^9, 
   3.701055107347085*^9}, {3.701193965678606*^9, 3.7011940184382257`*^9}, {
   3.701273006458715*^9, 3.701273006473565*^9}, {3.701273219077641*^9, 
   3.7012732190873823`*^9}, {3.7012733382331247`*^9, 3.701273346253845*^9}, {
   3.7056668952571*^9, 3.705666897785222*^9}, {3.7059707717820787`*^9, 
   3.705970800482492*^9}, {3.705970836205844*^9, 3.7059708734310007`*^9}, {
   3.707324881849275*^9, 3.707324882485655*^9}, {3.707436728867568*^9, 
   3.7074367555200863`*^9}, 3.707436796306394*^9, {3.7074368793767233`*^9, 
   3.70743711296126*^9}, {3.707443644203821*^9, 3.707443651754601*^9}, {
   3.707443792882021*^9, 3.707443835096779*^9}, {3.7106015146582823`*^9, 
   3.710601525472933*^9}, {3.710601560480526*^9, 3.710601580783036*^9}, {
   3.7106016146861897`*^9, 3.710601654941115*^9}, {3.710601717172649*^9, 
   3.7106017602327213`*^9}, {3.710601795181711*^9, 3.7106018087862186`*^9}, {
   3.710601841363407*^9, 3.710601843340026*^9}, {3.710601874095083*^9, 
   3.7106018848315487`*^9}, {3.710604449676382*^9, 3.710604494358672*^9}, {
   3.710604535274125*^9, 3.71060453884781*^9}, {3.710604593382557*^9, 
   3.710604644998672*^9}, {3.710604735368785*^9, 3.710604808218906*^9}, {
   3.7106055247512913`*^9, 3.710605544833674*^9}, {3.710605743753518*^9, 
   3.710605808778126*^9}, 3.710605866581547*^9, {3.710671917315971*^9, 
   3.710671966840085*^9}, {3.710672204894973*^9, 3.71067223505763*^9}, {
   3.710672315797572*^9, 3.7106723333827477`*^9}, {3.71067238471108*^9, 
   3.710672389783319*^9}, {3.710672488157618*^9, 3.710672491028968*^9}, {
   3.710673473146858*^9, 3.710673493911377*^9}, {3.710673549006963*^9, 
   3.710673549711029*^9}, {3.71174924149284*^9, 3.711749244580171*^9}, 
   3.836990428712409*^9, {3.836990571094091*^9, 3.836990585221293*^9}, {
   3.836990627854953*^9, 
   3.836990701875984*^9}},ExpressionUUID->"52ee6967-31a2-49af-9a92-\
0b3acf1abdff"],

Cell[BoxData["\<\"Party platform adjustment model\"\>"], "Print",
 CellChangeTimes->{{3.699299288733614*^9, 3.6992993109401083`*^9}, {
   3.699300363506196*^9, 3.6993004421303596`*^9}, {3.6993006159892*^9, 
   3.699300662563982*^9}, 3.699300910818701*^9, {3.6993009534739227`*^9, 
   3.699300971493298*^9}, 3.6993012576046257`*^9, {3.6993373328221607`*^9, 
   3.699337359495328*^9}, 3.699337582680724*^9, 3.699337962117065*^9, {
   3.69933800945675*^9, 3.699338039070756*^9}, 3.6993380741773148`*^9, 
   3.699338121325128*^9, 3.6993382289698477`*^9, 3.6993439749462748`*^9, 
   3.6993440464559793`*^9, {3.699344148245846*^9, 3.699344172445363*^9}, 
   3.699344313142376*^9, 3.699344699513522*^9, 3.699347043873539*^9, {
   3.699364148748199*^9, 3.699364161847803*^9}, {3.699364986650179*^9, 
   3.699365009725024*^9}, 3.700850678145247*^9, 3.700850796358304*^9, 
   3.700850892924032*^9, 3.700850946861264*^9, 3.700867471245184*^9, 
   3.7008676802269897`*^9, 3.700870453191269*^9, 3.700870492445394*^9, 
   3.70094806294066*^9, 3.7009480971667023`*^9, {3.700948496165916*^9, 
   3.70094854264137*^9}, 3.700949273528068*^9, 3.700954992054521*^9, 
   3.701022807617931*^9, 3.701048311254979*^9, 3.7010552982370768`*^9, 
   3.701261271300734*^9, 3.7012732252593107`*^9, 3.701273350661871*^9, 
   3.701404310161447*^9, 3.701490547299272*^9, 3.7015187414538116`*^9, 
   3.701541791227757*^9, 3.7016168938711367`*^9, 3.701627015675733*^9, 
   3.701700774961322*^9, 3.7026967323105087`*^9, 3.702732080505844*^9, 
   3.7028253774376087`*^9, 3.705666989543681*^9, 3.7058706176207*^9, 
   3.705882658436318*^9, 3.705970751785561*^9, {3.705970785840252*^9, 
   3.705970801347554*^9}, {3.705970867974944*^9, 3.7059708741488733`*^9}, 
   3.7059726599543953`*^9, 3.7068731950096207`*^9, 3.706891023786633*^9, 
   3.707078268524002*^9, 3.707092565171224*^9, 3.707092620850933*^9, 
   3.707275520876973*^9, 3.707324198698086*^9, 3.707437248489769*^9, 
   3.7088698759689302`*^9, 3.708883797650243*^9, 3.708896939443475*^9, 
   3.708896988930735*^9, 3.7105426555183*^9, 3.7105433206091347`*^9, 
   3.710601531061708*^9, 3.710601581807123*^9, 3.710601623184239*^9, 
   3.7106016596842737`*^9, {3.710601733118865*^9, 3.710601761529827*^9}, 
   3.7106018095528517`*^9, 3.710601852927751*^9, 3.710601889353217*^9, 
   3.7106045798396482`*^9, 3.710604946331173*^9, 3.710606075843194*^9, 
   3.71067196903651*^9, 3.710672335608635*^9, 3.7106724116789293`*^9, 
   3.7106724921468143`*^9, 3.710673427265892*^9, 3.710673494601042*^9, 
   3.7117228355927277`*^9, {3.711747488500256*^9, 3.711747514083481*^9}, 
   3.711748859147146*^9, 3.711749245327942*^9, 3.711749659255175*^9, 
   3.711751848277027*^9, 3.711751952565077*^9, 3.7117520280004807`*^9, 
   3.71175284607649*^9, 3.7117530114440527`*^9, 3.71175307295006*^9, 
   3.711755090575313*^9, {3.711755193418242*^9, 3.7117551962730207`*^9}, 
   3.711758220516362*^9, 3.711758364740191*^9, 3.711758496888187*^9, 
   3.711758589592924*^9, {3.7117587182741537`*^9, 3.711758726674632*^9}, 
   3.711758846205858*^9, 3.711759165440856*^9, 3.7117593052124367`*^9, 
   3.711761929082718*^9, 3.711762051745186*^9, {3.711762149570876*^9, 
   3.711762173997081*^9}, 3.711762324925929*^9, 3.71196414798638*^9, 
   3.715262029794771*^9, 3.715265321235652*^9, 3.715274354126727*^9, 
   3.715274401698036*^9, 3.715280718988494*^9, 3.715281690858222*^9, 
   3.715281831356971*^9, 3.7152826113533707`*^9, 3.715283491691038*^9, 
   3.7152838344722548`*^9, 3.7152839638386927`*^9, 3.7152842421139593`*^9, {
   3.715284438452183*^9, 3.715284453174109*^9}, 3.715284572518165*^9, 
   3.715287558492762*^9, 3.7152877440645437`*^9, 3.7152885013247004`*^9, {
   3.733702839679241*^9, 3.7337028435894537`*^9}, 3.733703538327219*^9, 
   3.7337648206516447`*^9, 3.8369904977676888`*^9, 3.836990668644709*^9},
 CellLabel->
  "During evaluation of \
In[140]:=",ExpressionUUID->"7e0dbb0c-59e1-4332-b26e-f272da7d1f60"],

Cell[BoxData["\<\"/Users/tls459/Dropbox/Response to \
Loss/Replication_files\"\>"], "Output",
 CellChangeTimes->{3.836990668648787*^9},
 CellLabel->
  "Out[143]=",ExpressionUUID->"b496bdf6-cbaf-45cd-9885-70eb11b7bc49"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Difference in platforms chosen by the moderate and extreme \
factions: \"\>", "\[InvisibleSpace]", "\[Delta]", 
   "\[InvisibleSpace]", "\<\"; need b to be larger than this in order for \
party decisive voter to prefer the extremist when it has the valence \
bump.\"\>"}],
  SequenceForm[
  "Difference in platforms chosen by the moderate and extreme factions: ", \
$CellContext`\[Delta], 
   "; need b to be larger than this in order for party decisive voter to \
prefer the extremist when it has the valence bump."],
  Editable->False]], "Print",
 CellChangeTimes->{{3.699299288733614*^9, 3.6992993109401083`*^9}, {
   3.699300363506196*^9, 3.6993004421303596`*^9}, {3.6993006159892*^9, 
   3.699300662563982*^9}, 3.699300910818701*^9, {3.6993009534739227`*^9, 
   3.699300971493298*^9}, 3.6993012576046257`*^9, {3.6993373328221607`*^9, 
   3.699337359495328*^9}, 3.699337582680724*^9, 3.699337962117065*^9, {
   3.69933800945675*^9, 3.699338039070756*^9}, 3.6993380741773148`*^9, 
   3.699338121325128*^9, 3.6993382289698477`*^9, 3.6993439749462748`*^9, 
   3.6993440464559793`*^9, {3.699344148245846*^9, 3.699344172445363*^9}, 
   3.699344313142376*^9, 3.699344699513522*^9, 3.699347043873539*^9, {
   3.699364148748199*^9, 3.699364161847803*^9}, {3.699364986650179*^9, 
   3.699365009725024*^9}, 3.700850678145247*^9, 3.700850796358304*^9, 
   3.700850892924032*^9, 3.700850946861264*^9, 3.700867471245184*^9, 
   3.7008676802269897`*^9, 3.700870453191269*^9, 3.700870492445394*^9, 
   3.70094806294066*^9, 3.7009480971667023`*^9, {3.700948496165916*^9, 
   3.70094854264137*^9}, 3.700949273528068*^9, 3.700954992054521*^9, 
   3.701022807617931*^9, 3.701048311254979*^9, 3.7010552982370768`*^9, 
   3.701261271300734*^9, 3.7012732252593107`*^9, 3.701273350661871*^9, 
   3.701404310161447*^9, 3.701490547299272*^9, 3.7015187414538116`*^9, 
   3.701541791227757*^9, 3.7016168938711367`*^9, 3.701627015675733*^9, 
   3.701700774961322*^9, 3.7026967323105087`*^9, 3.702732080505844*^9, 
   3.7028253774376087`*^9, 3.705666989543681*^9, 3.7058706176207*^9, 
   3.705882658436318*^9, 3.705970751785561*^9, {3.705970785840252*^9, 
   3.705970801347554*^9}, {3.705970867974944*^9, 3.7059708741488733`*^9}, 
   3.7059726599543953`*^9, 3.7068731950096207`*^9, 3.706891023786633*^9, 
   3.707078268524002*^9, 3.707092565171224*^9, 3.707092620850933*^9, 
   3.707275520876973*^9, 3.707324198698086*^9, 3.707437248489769*^9, 
   3.7088698759689302`*^9, 3.708883797650243*^9, 3.708896939443475*^9, 
   3.708896988930735*^9, 3.7105426555183*^9, 3.7105433206091347`*^9, 
   3.710601531061708*^9, 3.710601581807123*^9, 3.710601623184239*^9, 
   3.7106016596842737`*^9, {3.710601733118865*^9, 3.710601761529827*^9}, 
   3.7106018095528517`*^9, 3.710601852927751*^9, 3.710601889353217*^9, 
   3.7106045798396482`*^9, 3.710604946331173*^9, 3.710606075843194*^9, 
   3.71067196903651*^9, 3.710672335608635*^9, 3.7106724116789293`*^9, 
   3.7106724921468143`*^9, 3.710673427265892*^9, 3.710673494601042*^9, 
   3.7117228355927277`*^9, {3.711747488500256*^9, 3.711747514083481*^9}, 
   3.711748859147146*^9, 3.711749245327942*^9, 3.711749659255175*^9, 
   3.711751848277027*^9, 3.711751952565077*^9, 3.7117520280004807`*^9, 
   3.71175284607649*^9, 3.7117530114440527`*^9, 3.71175307295006*^9, 
   3.711755090575313*^9, {3.711755193418242*^9, 3.7117551962730207`*^9}, 
   3.711758220516362*^9, 3.711758364740191*^9, 3.711758496888187*^9, 
   3.711758589592924*^9, {3.7117587182741537`*^9, 3.711758726674632*^9}, 
   3.711758846205858*^9, 3.711759165440856*^9, 3.7117593052124367`*^9, 
   3.711761929082718*^9, 3.711762051745186*^9, {3.711762149570876*^9, 
   3.711762173997081*^9}, 3.711762324925929*^9, 3.71196414798638*^9, 
   3.715262029794771*^9, 3.715265321235652*^9, 3.715274354126727*^9, 
   3.715274401698036*^9, 3.715280718988494*^9, 3.715281690858222*^9, 
   3.715281831356971*^9, 3.7152826113533707`*^9, 3.715283491691038*^9, 
   3.7152838344722548`*^9, 3.7152839638386927`*^9, 3.7152842421139593`*^9, {
   3.715284438452183*^9, 3.715284453174109*^9}, 3.715284572518165*^9, 
   3.715287558492762*^9, 3.7152877440645437`*^9, 3.7152885013247004`*^9, {
   3.733702839679241*^9, 3.7337028435894537`*^9}, 3.733703538327219*^9, 
   3.7337648206516447`*^9, 3.8369904977676888`*^9, 3.836990668649578*^9},
 CellLabel->
  "During evaluation of \
In[140]:=",ExpressionUUID->"7ca03849-6d8f-4400-b888-7358165b04a5"],

Cell[BoxData["\<\"This implies that the probability of choosing extreme \
faction is \[Sigma] \[Rho].\"\>"], "Print",
 CellChangeTimes->{{3.699299288733614*^9, 3.6992993109401083`*^9}, {
   3.699300363506196*^9, 3.6993004421303596`*^9}, {3.6993006159892*^9, 
   3.699300662563982*^9}, 3.699300910818701*^9, {3.6993009534739227`*^9, 
   3.699300971493298*^9}, 3.6993012576046257`*^9, {3.6993373328221607`*^9, 
   3.699337359495328*^9}, 3.699337582680724*^9, 3.699337962117065*^9, {
   3.69933800945675*^9, 3.699338039070756*^9}, 3.6993380741773148`*^9, 
   3.699338121325128*^9, 3.6993382289698477`*^9, 3.6993439749462748`*^9, 
   3.6993440464559793`*^9, {3.699344148245846*^9, 3.699344172445363*^9}, 
   3.699344313142376*^9, 3.699344699513522*^9, 3.699347043873539*^9, {
   3.699364148748199*^9, 3.699364161847803*^9}, {3.699364986650179*^9, 
   3.699365009725024*^9}, 3.700850678145247*^9, 3.700850796358304*^9, 
   3.700850892924032*^9, 3.700850946861264*^9, 3.700867471245184*^9, 
   3.7008676802269897`*^9, 3.700870453191269*^9, 3.700870492445394*^9, 
   3.70094806294066*^9, 3.7009480971667023`*^9, {3.700948496165916*^9, 
   3.70094854264137*^9}, 3.700949273528068*^9, 3.700954992054521*^9, 
   3.701022807617931*^9, 3.701048311254979*^9, 3.7010552982370768`*^9, 
   3.701261271300734*^9, 3.7012732252593107`*^9, 3.701273350661871*^9, 
   3.701404310161447*^9, 3.701490547299272*^9, 3.7015187414538116`*^9, 
   3.701541791227757*^9, 3.7016168938711367`*^9, 3.701627015675733*^9, 
   3.701700774961322*^9, 3.7026967323105087`*^9, 3.702732080505844*^9, 
   3.7028253774376087`*^9, 3.705666989543681*^9, 3.7058706176207*^9, 
   3.705882658436318*^9, 3.705970751785561*^9, {3.705970785840252*^9, 
   3.705970801347554*^9}, {3.705970867974944*^9, 3.7059708741488733`*^9}, 
   3.7059726599543953`*^9, 3.7068731950096207`*^9, 3.706891023786633*^9, 
   3.707078268524002*^9, 3.707092565171224*^9, 3.707092620850933*^9, 
   3.707275520876973*^9, 3.707324198698086*^9, 3.707437248489769*^9, 
   3.7088698759689302`*^9, 3.708883797650243*^9, 3.708896939443475*^9, 
   3.708896988930735*^9, 3.7105426555183*^9, 3.7105433206091347`*^9, 
   3.710601531061708*^9, 3.710601581807123*^9, 3.710601623184239*^9, 
   3.7106016596842737`*^9, {3.710601733118865*^9, 3.710601761529827*^9}, 
   3.7106018095528517`*^9, 3.710601852927751*^9, 3.710601889353217*^9, 
   3.7106045798396482`*^9, 3.710604946331173*^9, 3.710606075843194*^9, 
   3.71067196903651*^9, 3.710672335608635*^9, 3.7106724116789293`*^9, 
   3.7106724921468143`*^9, 3.710673427265892*^9, 3.710673494601042*^9, 
   3.7117228355927277`*^9, {3.711747488500256*^9, 3.711747514083481*^9}, 
   3.711748859147146*^9, 3.711749245327942*^9, 3.711749659255175*^9, 
   3.711751848277027*^9, 3.711751952565077*^9, 3.7117520280004807`*^9, 
   3.71175284607649*^9, 3.7117530114440527`*^9, 3.71175307295006*^9, 
   3.711755090575313*^9, {3.711755193418242*^9, 3.7117551962730207`*^9}, 
   3.711758220516362*^9, 3.711758364740191*^9, 3.711758496888187*^9, 
   3.711758589592924*^9, {3.7117587182741537`*^9, 3.711758726674632*^9}, 
   3.711758846205858*^9, 3.711759165440856*^9, 3.7117593052124367`*^9, 
   3.711761929082718*^9, 3.711762051745186*^9, {3.711762149570876*^9, 
   3.711762173997081*^9}, 3.711762324925929*^9, 3.71196414798638*^9, 
   3.715262029794771*^9, 3.715265321235652*^9, 3.715274354126727*^9, 
   3.715274401698036*^9, 3.715280718988494*^9, 3.715281690858222*^9, 
   3.715281831356971*^9, 3.7152826113533707`*^9, 3.715283491691038*^9, 
   3.7152838344722548`*^9, 3.7152839638386927`*^9, 3.7152842421139593`*^9, {
   3.715284438452183*^9, 3.715284453174109*^9}, 3.715284572518165*^9, 
   3.715287558492762*^9, 3.7152877440645437`*^9, 3.7152885013247004`*^9, {
   3.733702839679241*^9, 3.7337028435894537`*^9}, 3.733703538327219*^9, 
   3.7337648206516447`*^9, 3.8369904977676888`*^9, 3.836990668650483*^9},
 CellLabel->
  "During evaluation of \
In[140]:=",ExpressionUUID->"483f5c9e-1daf-4763-975b-3afbad930255"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "utilize", " ", "four", " ", "functions", " ", "to", " ", 
    "denote", " ", "the", " ", "probability", " ", "of", " ", "faction", " ", 
    "state", " ", 
    RowBox[{"transition", ".", " ", "These"}], " ", "are", " ", "functions", 
    " ", "of", " ", "incumbency", " ", "restrictions", " ", 
    RowBox[{"(", 
     RowBox[{"sv", " ", "and", " ", "sd"}], ")"}], " ", "as", " ", 
    "described", " ", "in", " ", "the", " ", "previous", " ", 
    RowBox[{"section", "."}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"mm", "[", "i_", "]"}], " ", ":=", " ", 
    RowBox[{"1", " ", "-", " ", 
     RowBox[{"i", " ", "\[Sigma]", " ", "\[Rho]"}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"me", "[", "i_", "]"}], " ", ":=", " ", 
    RowBox[{"i", " ", "\[Sigma]", " ", "\[Rho]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"em", "[", "i_", "]"}], " ", ":=", " ", 
    RowBox[{"i", " ", 
     RowBox[{"(", 
      RowBox[{"\[Sigma]", "-", 
       RowBox[{"\[Sigma]", " ", "\[Rho]"}]}], ")"}]}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ee", "[", "i_", "]"}], " ", ":=", " ", 
    RowBox[{"1", " ", "-", " ", 
     RowBox[{"i", " ", "\[Sigma]"}], " ", "+", " ", 
     RowBox[{"i", " ", "\[Sigma]", " ", "\[Rho]"}]}]}], "\[IndentingNewLine]",
    "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Input", " ", "the", " ", "transition", " ", "matrix"}], " ", 
    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Rmmm", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"mm", "[", "sv", "]"}], "  ", 
        RowBox[{"mm", "[", "sd", "]"}], "*", 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", "yrm", 
          ",", " ", "xm", ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"me", "[", "sv", "]"}], "*", 
        RowBox[{"mm", "[", "sd", "]"}], "*", 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", 
          RowBox[{"yrm", " ", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", 
          " ", 
          RowBox[{"mm\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"me\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"mm", "[", "sv", "]"}], "*", 
        RowBox[{"me", "[", "sd", "]"}], "*", 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]", "-", "\[Delta]"}], 
          ",", " ", "yrm", ",", " ", "xm", ",", " ", 
          RowBox[{"me\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"me", "[", "sv", "]"}], " ", 
        RowBox[{"me", "[", "sd", "]"}], "*", 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]", "-", "\[Delta]"}], 
          ",", " ", 
          RowBox[{"yrm", "+", "\[Delta]"}], ",", " ", "xm", ",", " ", 
          RowBox[{"me\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"me\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"mm", "[", "sv", "]"}], "  ", 
        RowBox[{"mm", "[", "sd", "]"}], "*", 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", "yrm", 
          ",", " ", "xm", ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"me", "[", "sv", "]"}], "*", 
        RowBox[{"mm", "[", "sd", "]"}], "*", 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", 
          RowBox[{"yrm", "+", "\[Delta]"}], ",", " ", "xm", ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"me\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"mm", "[", "sv", "]"}], "*", 
        RowBox[{"me", "[", "sd", "]"}], "*", 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]", "-", "\[Delta]"}], 
          ",", " ", "yrm", ",", " ", "xm", ",", " ", 
          RowBox[{"me\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", "  ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"me", "[", "sv", "]"}], " ", 
        RowBox[{"me", "[", "sd", "]"}], "*", 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]", "-", "\[Delta]"}], 
          ",", " ", 
          RowBox[{"yrm", "+", "\[Delta]"}], ",", " ", "xm", ",", " ", 
          RowBox[{"me\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"me\[Rho]", "[", "sv", "]"}]}], "]"}]}]}], " ", "}"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Remm", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"em", "[", "sv", "]"}], "  ", 
        RowBox[{"mm", "[", "sd", "]"}], " ", "*", 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", "yrm", 
          " ", ",", " ", "xm", ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"em\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"ee", "[", "sv", "]"}], " ", 
        RowBox[{"mm", "[", "sd", "]"}], "*", 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", 
          RowBox[{"yrm", " ", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", 
          "  ", 
          RowBox[{"mm\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"em", "[", "sv", "]"}], " ", 
        RowBox[{"me", "[", "sd", "]"}], "*", 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]", "-", "\[Delta]"}], 
          ",", " ", "yrm", " ", ",", " ", "xm", ",", "  ", 
          RowBox[{"me\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"em\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"ee", "[", "sv", "]"}], " ", 
        RowBox[{"me", "[", "sd", "]"}], "*", 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]", "-", "\[Delta]"}], 
          ",", " ", 
          RowBox[{"yrm", " ", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", 
          " ", 
          RowBox[{"me\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"em", "[", "sv", "]"}], "  ", 
        RowBox[{"mm", "[", "sd", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", "yrm", 
          " ", ",", " ", "xm", ",", "  ", 
          RowBox[{"mm\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"em\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"ee", "[", "sv", "]"}], " ", 
        RowBox[{"mm", "[", "sd", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", 
          RowBox[{"yrm", " ", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", 
          " ", 
          RowBox[{"mm\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t ", 
       RowBox[{
        RowBox[{"em", "[", "sv", "]"}], " ", 
        RowBox[{"me", "[", "sd", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]", "-", "\[Delta]"}], 
          ",", " ", "yrm", " ", ",", " ", "xm", ",", " ", 
          RowBox[{"me\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"em\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"ee", "[", "sv", "]"}], " ", 
        RowBox[{"me", "[", "sd", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]", "-", "\[Delta]"}], 
          ",", " ", 
          RowBox[{"yrm", " ", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", 
          "  ", 
          RowBox[{"me\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sv", "]"}]}], "]"}]}]}], " ", "}"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Rmem", " ", "=", "  ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"mm", "[", "sv", "]"}], 
        RowBox[{"em", "[", "sd", "]"}], 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], " ", ",", " ", 
          "yrm", ",", " ", "xm", ",", " ", 
          RowBox[{"em\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"me", "[", "sv", "]"}], " ", 
        RowBox[{"em", "[", "sd", "]"}], 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], " ", ",", " ", 
          RowBox[{"yrm", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", "  ", 
          RowBox[{"em\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"me\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"mm", "[", "sv", "]"}], " ", 
        RowBox[{"ee", "[", "sd", "]"}], 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{
          "yrm", " ", "-", " ", "\[CapitalDelta]", " ", "-", " ", 
           "\[Delta]"}], ",", " ", "yrm", ",", " ", "xm", ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sd", "]"}], ",", 
          RowBox[{"mm\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", "  ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"me", "[", "sv", "]"}], " ", 
        RowBox[{"ee", "[", "sd", "]"}], 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{
          "yrm", " ", "-", " ", "\[CapitalDelta]", " ", "-", " ", 
           "\[Delta]"}], ",", " ", 
          RowBox[{"yrm", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"me\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"mm", "[", "sv", "]"}], 
        RowBox[{"em", "[", "sd", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", "yrm", 
          ",", " ", "xm", ",", " ", 
          RowBox[{"em\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"me", "[", "sv", "]"}], " ", 
        RowBox[{"em", "[", "sd", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], " ", ",", " ", 
          RowBox[{"yrm", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", " ", 
          RowBox[{"em\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"me\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"mm", "[", "sv", "]"}], " ", 
        RowBox[{"ee", "[", "sd", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{
          "yrm", " ", "-", " ", "\[CapitalDelta]", " ", "-", " ", 
           "\[Delta]"}], ",", " ", "yrm", ",", " ", "xm", ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", "   ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"me", "[", "sv", "]"}], " ", 
        RowBox[{"ee", "[", "sd", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{
          "yrm", " ", "-", " ", "\[CapitalDelta]", " ", "-", " ", 
           "\[Delta]"}], ",", " ", 
          RowBox[{"yrm", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"me\[Rho]", "[", "sv", "]"}]}], "]"}]}]}], " ", "}"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Reem", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"em", "[", "sv", "]"}], " ", 
        RowBox[{"em", "[", "sd", "]"}], 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], " ", ",", " ", 
          "yrm", " ", ",", " ", "xm", ",", " ", 
          RowBox[{"em\[Rho]", "[", "sd", "]"}], ",", 
          RowBox[{"em\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"ee", "[", "sv", "]"}], 
        RowBox[{"em", "[", "sd", "]"}], 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], " ", ",", " ", 
          RowBox[{"yrm", " ", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", 
          "  ", 
          RowBox[{"em\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sv", "]"}]}], "]"}]}], " ", ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"em", "[", "sv", "]"}], " ", 
        RowBox[{"ee", "[", "sd", "]"}], 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{
          "yrm", " ", "-", " ", "\[CapitalDelta]", " ", "-", " ", 
           "\[Delta]"}], ",", " ", "yrm", " ", ",", " ", "xm", ",", 
          RowBox[{"ee\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"em\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"ee", "[", "sv", "]"}], " ", 
        RowBox[{"ee", "[", "sd", "]"}], 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{
          "yrm", " ", "-", " ", "\[CapitalDelta]", " ", "-", " ", 
           "\[Delta]"}], ",", " ", 
          RowBox[{"yrm", " ", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", 
          " ", 
          RowBox[{"ee\[Rho]", "[", "sd", "]"}], ",", 
          RowBox[{"ee\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"em", "[", "sv", "]"}], " ", 
        RowBox[{"em", "[", "sd", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], " ", ",", " ", 
          "yrm", " ", ",", " ", "xm", ",", 
          RowBox[{"em\[Rho]", "[", "sd", "]"}], ",", 
          RowBox[{"em\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", "\t ", 
       RowBox[{
        RowBox[{"ee", "[", "sv", "]"}], 
        RowBox[{"em", "[", "sd", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], " ", ",", " ", 
          RowBox[{"yrm", " ", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", 
          "  ", 
          RowBox[{"em\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", "\t ", 
       RowBox[{
        RowBox[{"em", "[", "sv", "]"}], " ", 
        RowBox[{"ee", "[", "sd", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{
          "yrm", " ", "-", " ", "\[CapitalDelta]", " ", "-", " ", 
           "\[Delta]"}], ",", " ", "yrm", " ", ",", " ", "xm", ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sd", "]"}], ",", " ", 
          RowBox[{"em\[Rho]", "[", "sv", "]"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", "\t ", 
       RowBox[{
        RowBox[{"ee", "[", "sv", "]"}], " ", 
        RowBox[{"ee", "[", "sd", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{
          "yrm", " ", "-", " ", "\[CapitalDelta]", " ", "-", " ", 
           "\[Delta]"}], ",", " ", 
          RowBox[{"yrm", " ", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", 
          " ", 
          RowBox[{"ee\[Rho]", "[", "sd", "]"}], ",", 
          RowBox[{"ee\[Rho]", "[", "sv", "]"}]}], "]"}]}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Lmmm", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"mm", "[", "sd", "]"}], "  ", 
        RowBox[{"mm", "[", "sv", "]"}], "*", 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", "yrm", 
          ",", " ", "xm", ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"me", "[", "sd", "]"}], "*", 
        RowBox[{"mm", "[", "sv", "]"}], "*", 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", 
          RowBox[{"yrm", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"me\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"mm", "[", "sd", "]"}], "*", 
        RowBox[{"me", "[", "sv", "]"}], "*", 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]", "-", "\[Delta]"}], 
          ",", " ", "yrm", ",", " ", "xm", ",", " ", 
          RowBox[{"me\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"me", "[", "sd", "]"}], " ", 
        RowBox[{"me", "[", "sv", "]"}], "*", 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]", "-", "\[Delta]"}], 
          ",", " ", 
          RowBox[{"yrm", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", " ", 
          RowBox[{"me\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"me\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"mm", "[", "sd", "]"}], "  ", 
        RowBox[{"mm", "[", "sv", "]"}], "*", 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", "yrm", 
          ",", " ", "xm", ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"me", "[", "sd", "]"}], "*", 
        RowBox[{"mm", "[", "sv", "]"}], "*", 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", 
          RowBox[{"yrm", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"me\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"mm", "[", "sd", "]"}], "*", 
        RowBox[{"me", "[", "sv", "]"}], "*", 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]", "-", "\[Delta]"}], 
          ",", " ", "yrm", ",", " ", "xm", ",", " ", 
          RowBox[{"me\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"me", "[", "sd", "]"}], " ", 
        RowBox[{"me", "[", "sv", "]"}], "*", 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]", "-", "\[Delta]"}], 
          ",", " ", 
          RowBox[{"yrm", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", " ", 
          RowBox[{"me\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"me\[Rho]", "[", "sd", "]"}]}], "]"}]}]}], " ", "}"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Lemm", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"em", "[", "sd", "]"}], "  ", 
        RowBox[{"mm", "[", "sv", "]"}], " ", "*", 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", "yrm", 
          " ", ",", " ", "xm", ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"em\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ee", "[", "sd", "]"}], " ", 
        RowBox[{"mm", "[", "sv", "]"}], "*", 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", 
          RowBox[{"yrm", " ", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", 
          "  ", 
          RowBox[{"mm\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"em", "[", "sd", "]"}], " ", 
        RowBox[{"me", "[", "sv", "]"}], "*", 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]", "-", "\[Delta]"}], 
          ",", " ", "yrm", " ", ",", " ", "xm", ",", "  ", 
          RowBox[{"me\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"em\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ee", "[", "sd", "]"}], " ", 
        RowBox[{"me", "[", "sv", "]"}], "*", 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]", "-", "\[Delta]"}], 
          ",", " ", 
          RowBox[{"yrm", " ", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", 
          " ", 
          RowBox[{"me\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"em", "[", "sd", "]"}], "  ", 
        RowBox[{"mm", "[", "sv", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", "yrm", 
          ",", " ", "xm", ",", "  ", 
          RowBox[{"mm\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"em\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ee", "[", "sd", "]"}], " ", 
        RowBox[{"mm", "[", "sv", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", 
          RowBox[{"yrm", " ", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", 
          " ", 
          RowBox[{"mm\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"em", "[", "sd", "]"}], " ", 
        RowBox[{"me", "[", "sv", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]", "-", "\[Delta]"}], 
          ",", " ", "yrm", " ", ",", " ", "xm", ",", " ", 
          RowBox[{"me\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"em\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ee", "[", "sd", "]"}], " ", 
        RowBox[{"me", "[", "sv", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]", "-", "\[Delta]"}], 
          ",", " ", 
          RowBox[{"yrm", " ", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", 
          "  ", 
          RowBox[{"me\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sd", "]"}]}], "]"}]}]}], " ", "}"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Lmem", " ", "=", "  ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"mm", "[", "sd", "]"}], 
        RowBox[{"em", "[", "sv", "]"}], 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", "yrm", 
          ",", " ", "xm", ",", " ", 
          RowBox[{"em\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"me", "[", "sd", "]"}], " ", 
        RowBox[{"em", "[", "sv", "]"}], 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], " ", ",", " ", 
          RowBox[{"yrm", "+", "\[Delta]"}], ",", " ", "xm", ",", "  ", 
          RowBox[{"em\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"me\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"mm", "[", "sd", "]"}], " ", 
        RowBox[{"ee", "[", "sv", "]"}], 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{
          "yrm", " ", "-", " ", "\[CapitalDelta]", " ", "-", " ", 
           "\[Delta]"}], ",", " ", "yrm", ",", " ", "xm", ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sv", "]"}], ",", 
          RowBox[{"mm\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"me", "[", "sd", "]"}], " ", 
        RowBox[{"ee", "[", "sv", "]"}], 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{
          "yrm", " ", "-", " ", "\[CapitalDelta]", " ", "-", " ", 
           "\[Delta]"}], ",", " ", 
          RowBox[{"yrm", "+", "\[Delta]"}], ",", " ", "xm", ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"me\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"mm", "[", "sd", "]"}], 
        RowBox[{"em", "[", "sv", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", "yrm", 
          ",", " ", "xm", ",", " ", 
          RowBox[{"em\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"me", "[", "sd", "]"}], " ", 
        RowBox[{"em", "[", "sv", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], " ", ",", " ", 
          RowBox[{"yrm", "+", "\[Delta]"}], ",", " ", "xm", ",", " ", 
          RowBox[{"em\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"me\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", " ", 
       RowBox[{
        RowBox[{"mm", "[", "sd", "]"}], " ", 
        RowBox[{"ee", "[", "sv", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{
          "yrm", " ", "-", " ", "\[CapitalDelta]", " ", "-", " ", 
           "\[Delta]"}], ",", " ", "yrm", ",", " ", "xm", ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"mm\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"me", "[", "sd", "]"}], " ", 
        RowBox[{"ee", "[", "sv", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{
          "yrm", " ", "-", " ", "\[CapitalDelta]", " ", "-", " ", 
           "\[Delta]"}], ",", " ", 
          RowBox[{"yrm", "+", "\[Delta]"}], ",", " ", "xm", ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"me\[Rho]", "[", "sd", "]"}]}], "]"}]}]}], " ", "}"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Leem", " ", "=", "  ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"em", "[", "sd", "]"}], " ", 
        RowBox[{"em", "[", "sv", "]"}], 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", "yrm", 
          " ", ",", " ", "xm", ",", " ", 
          RowBox[{"em\[Rho]", "[", "sv", "]"}], ",", 
          RowBox[{"em\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ee", "[", "sd", "]"}], 
        RowBox[{"em", "[", "sv", "]"}], 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], " ", ",", " ", 
          RowBox[{"yrm", " ", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", 
          "  ", 
          RowBox[{"em\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sd", "]"}]}], "]"}]}], " ", ",", "  ", 
       RowBox[{
        RowBox[{"em", "[", "sd", "]"}], " ", 
        RowBox[{"ee", "[", "sv", "]"}], 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{
          "yrm", " ", "-", " ", "\[CapitalDelta]", " ", "-", " ", 
           "\[Delta]"}], ",", " ", "yrm", " ", ",", " ", "xm", ",", 
          RowBox[{"ee\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"em\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"ee", "[", "sd", "]"}], " ", 
        RowBox[{"ee", "[", "sv", "]"}], 
        RowBox[{"PrRwiny", "[", 
         RowBox[{
          RowBox[{
          "yrm", " ", "-", " ", "\[CapitalDelta]", " ", "-", " ", 
           "\[Delta]"}], ",", " ", 
          RowBox[{"yrm", " ", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", 
          " ", 
          RowBox[{"ee\[Rho]", "[", "sv", "]"}], ",", 
          RowBox[{"ee\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"em", "[", "sd", "]"}], " ", 
        RowBox[{"em", "[", "sv", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], " ", ",", " ", 
          "yrm", ",", " ", "xm", ",", 
          RowBox[{"em\[Rho]", "[", "sv", "]"}], ",", 
          RowBox[{"em\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ee", "[", "sd", "]"}], 
        RowBox[{"em", "[", "sv", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{"yrm", " ", "-", " ", "\[CapitalDelta]"}], ",", " ", 
          RowBox[{"yrm", " ", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", 
          "  ", 
          RowBox[{"em\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", "  ", 
       RowBox[{
        RowBox[{"em", "[", "sd", "]"}], " ", 
        RowBox[{"ee", "[", "sv", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{
          "yrm", " ", "-", " ", "\[CapitalDelta]", " ", "-", " ", 
           "\[Delta]"}], ",", " ", "yrm", ",", " ", "xm", ",", " ", 
          RowBox[{"ee\[Rho]", "[", "sv", "]"}], ",", " ", 
          RowBox[{"em\[Rho]", "[", "sd", "]"}]}], "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"ee", "[", "sd", "]"}], " ", 
        RowBox[{"ee", "[", "sv", "]"}], 
        RowBox[{"PrLwiny", "[", 
         RowBox[{
          RowBox[{
          "yrm", " ", "-", " ", "\[CapitalDelta]", " ", "-", " ", 
           "\[Delta]"}], ",", " ", 
          RowBox[{"yrm", " ", "+", " ", "\[Delta]"}], ",", " ", "xm", ",", 
          " ", 
          RowBox[{"ee\[Rho]", "[", "sv", "]"}], ",", 
          RowBox[{"ee\[Rho]", "[", "sd", "]"}]}], "]"}]}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Summation check (top rows, R incumbent): \>\"", ",", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Total", "[", "Rmmm", "]"}], "]"}], ",", "\"\< \>\"", ",", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Total", "[", "Remm", "]"}], "]"}], ",", "\"\< \>\"", ",", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Total", "[", "Rmem", "]"}], "]"}], ",", "\"\< \>\"", ",", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Total", "[", "Reem", "]"}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Summation check (bottom rows, L incumbent): \>\"", ",", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Total", "[", "Lmmm", "]"}], "]"}], ",", "\"\< \>\"", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Total", "[", "Lemm", "]"}], "]"}], ",", "\"\< \>\"", ",", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Total", "[", "Lmem", "]"}], "]"}], ",", "\"\< \>\"", ",", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Total", "[", "Leem", "]"}], "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.700785538496166*^9, 3.70078575639923*^9}, {
   3.70078581809429*^9, 3.700786023722185*^9}, {3.7007861941781054`*^9, 
   3.700786194689616*^9}, {3.700786236407786*^9, 3.7007863580827427`*^9}, {
   3.700786508018876*^9, 3.700786579868237*^9}, {3.700948179874508*^9, 
   3.700948235627554*^9}, {3.700948281109785*^9, 3.7009483620589933`*^9}, {
   3.70094842579605*^9, 3.7009484647127666`*^9}, {3.700948585396821*^9, 
   3.7009489276394377`*^9}, {3.700948980393483*^9, 3.700948994407948*^9}, {
   3.700949035714658*^9, 3.700949090790209*^9}, {3.700949128593813*^9, 
   3.7009491494803057`*^9}, {3.700949186007017*^9, 3.700949187872527*^9}, {
   3.700949245691821*^9, 3.700949248407194*^9}, {3.7009492984599133`*^9, 
   3.700949504787959*^9}, {3.700950087674698*^9, 3.700950110224972*^9}, {
   3.70095037232753*^9, 3.70095037490902*^9}, 3.70095042310116*^9, {
   3.700950605967362*^9, 3.7009507033814907`*^9}, {3.700951051820405*^9, 
   3.700951135583798*^9}, {3.7009511779755163`*^9, 3.700951480579227*^9}, {
   3.700951530190563*^9, 3.700951530730019*^9}, {3.7009515650100183`*^9, 
   3.7009515807973022`*^9}, 3.700951827225939*^9, {3.700951942004977*^9, 
   3.7009519437845*^9}, {3.700951990891294*^9, 3.700951994347151*^9}, 
   3.700952055891316*^9, 3.700953531252483*^9, {3.700953590712907*^9, 
   3.700953614447061*^9}, 3.70095395491647*^9, 3.700953996381329*^9, 
   3.700954041338142*^9, {3.7009540934194803`*^9, 3.700954098019486*^9}, {
   3.700954219963903*^9, 3.7009542505298223`*^9}, 3.7009543773423243`*^9, {
   3.700954431380584*^9, 3.700954523270563*^9}, {3.700954561854311*^9, 
   3.7009545949708767`*^9}, {3.700954664786861*^9, 3.700954686197782*^9}, 
   3.700954729883787*^9, 3.700954762232747*^9, {3.7009548012869263`*^9, 
   3.700954837051947*^9}, {3.701022793062015*^9, 3.701022799027095*^9}, {
   3.701022912201932*^9, 3.701022912577367*^9}, {3.7010230998358297`*^9, 
   3.701023134772159*^9}, {3.701023253384774*^9, 3.7010232570608473`*^9}, {
   3.70102331111049*^9, 3.701023434982583*^9}, {3.701024307616466*^9, 
   3.7010243123240147`*^9}, {3.70104610957804*^9, 3.7010461171364737`*^9}, {
   3.701046250745092*^9, 3.701046256365505*^9}, {3.7010466869953012`*^9, 
   3.701046699412919*^9}, {3.701046880948078*^9, 3.7010468814527683`*^9}, {
   3.701046939697935*^9, 3.701046979053784*^9}, {3.70104719068659*^9, 
   3.701047196223772*^9}, {3.7010476144223423`*^9, 3.701047628860849*^9}, {
   3.701047738321164*^9, 3.701047740894094*^9}, {3.7010477718690357`*^9, 
   3.701047825810815*^9}, {3.7010519094880047`*^9, 3.701051935208893*^9}, {
   3.701055119389193*^9, 3.701055204483534*^9}, {3.701055322353026*^9, 
   3.701055324818429*^9}, {3.701261549328108*^9, 3.7012622434742937`*^9}, {
   3.701267747881616*^9, 3.701268144880301*^9}, {3.7012681912983723`*^9, 
   3.701268699755768*^9}, {3.70126877010642*^9, 3.7012689715487556`*^9}, {
   3.701269003422743*^9, 3.701269624853732*^9}, {3.7012698056022997`*^9, 
   3.701270537660954*^9}, {3.701270639289186*^9, 3.701270809357403*^9}, {
   3.7012708426389627`*^9, 3.701271534454294*^9}, {3.701271603625519*^9, 
   3.701271722512095*^9}, {3.701271760008491*^9, 3.70127176330973*^9}, 
   3.701271809427236*^9, 3.701271862770664*^9, 3.701271918863196*^9, {
   3.701271975562024*^9, 3.701271976725587*^9}, 3.70127206443888*^9, {
   3.701272136666621*^9, 3.701272163934325*^9}, 3.701272211296488*^9, 
   3.701272283031843*^9, {3.7012723387362328`*^9, 3.701272347281411*^9}, {
   3.701272405425777*^9, 3.701272450279396*^9}, 3.701272587114069*^9, {
   3.701272624969756*^9, 3.701272657661417*^9}, {3.701272737341997*^9, 
   3.701272738768588*^9}, {3.701272820157095*^9, 3.701272858955035*^9}, {
   3.7012728988613663`*^9, 3.701272917229437*^9}, {3.701272982316684*^9, 
   3.701273001375464*^9}, 3.701273040863266*^9, {3.70127307846355*^9, 
   3.701273098547817*^9}, {3.7012731976337833`*^9, 3.701273219197397*^9}, 
   3.701273346365094*^9, {3.7012737052487307`*^9, 3.701273746600151*^9}, {
   3.701404849698113*^9, 3.701404850145281*^9}, {3.701405925472889*^9, 
   3.701405928245791*^9}, {3.7014225477636137`*^9, 3.701422550949765*^9}, {
   3.7014371019653063`*^9, 3.701437105366665*^9}, {3.7014387153953247`*^9, 
   3.7014387177776823`*^9}, {3.701439012716919*^9, 3.701439020356979*^9}, {
   3.7014398930182257`*^9, 3.701439896723283*^9}, 3.701439992592758*^9, {
   3.7014401095737762`*^9, 3.701440118526289*^9}, 3.701440216610372*^9, {
   3.701440322766765*^9, 3.701440324171915*^9}, {3.7014534967652483`*^9, 
   3.7014535636838512`*^9}, {3.701453733633007*^9, 3.7014537370077477`*^9}, {
   3.701454305729907*^9, 3.701454586724825*^9}, {3.701454768690527*^9, 
   3.701455169880228*^9}, {3.701455238313073*^9, 3.701455241572407*^9}, {
   3.7014552797830467`*^9, 3.701455378681082*^9}, {3.701485220355586*^9, 
   3.7014852476308937`*^9}, {3.701485391529389*^9, 3.701485391872169*^9}, {
   3.701485620715345*^9, 3.701485662789432*^9}, {3.701485717981493*^9, 
   3.7014857514947357`*^9}, {3.701485782078473*^9, 3.701485785210073*^9}, {
   3.7014858350954437`*^9, 3.701485842806175*^9}, {3.7014860609164658`*^9, 
   3.701486079205513*^9}, {3.701486124860394*^9, 3.701486192485833*^9}, {
   3.701486255570241*^9, 3.701486297416565*^9}, {3.7014863495198107`*^9, 
   3.701486405382831*^9}, {3.701486517336666*^9, 3.701486547225855*^9}, {
   3.7014866320094624`*^9, 3.701486665357278*^9}, {3.7014868204191732`*^9, 
   3.701486935474381*^9}, {3.70148717737062*^9, 3.701487179867066*^9}, {
   3.7014878040977716`*^9, 3.7014878263412046`*^9}, {3.701488149680338*^9, 
   3.7014881509099092`*^9}, {3.701488190533224*^9, 3.701488256854143*^9}, {
   3.70148854426639*^9, 3.7014885667397833`*^9}, {3.701488742704858*^9, 
   3.7014887544229794`*^9}, {3.701519772594923*^9, 3.701519847286475*^9}, {
   3.701519878223064*^9, 3.701519924679686*^9}, 3.701541815667605*^9, {
   3.701553959028407*^9, 3.701553969039357*^9}, {3.7015582396537743`*^9, 
   3.701558247598702*^9}, {3.701558486527746*^9, 3.701558492613714*^9}, 
   3.7015585753716097`*^9, {3.7015586289356318`*^9, 3.701558630336858*^9}, {
   3.701558679482291*^9, 3.701558748170561*^9}, {3.701558841468522*^9, 
   3.701558879452961*^9}, {3.701558911129406*^9, 3.701558955766523*^9}, {
   3.701558992958274*^9, 3.701559023907503*^9}, {3.701559059478656*^9, 
   3.7015591811291447`*^9}, {3.7015592641757517`*^9, 3.701559292661337*^9}, {
   3.701559732394631*^9, 3.7015598110318737`*^9}, {3.7015598747211103`*^9, 
   3.701559902389297*^9}, {3.701559955270237*^9, 3.701559975041926*^9}, {
   3.701560074561303*^9, 3.7015600759031076`*^9}, {3.7015601788489637`*^9, 
   3.701560181868335*^9}, {3.70156026288568*^9, 3.701560341421747*^9}, 
   3.701560372126618*^9, {3.701571804217702*^9, 3.701571808758438*^9}, {
   3.7015718694195833`*^9, 3.701571935040266*^9}, {3.7015726577578163`*^9, 
   3.701572665337586*^9}, {3.701572740054947*^9, 3.70157282498193*^9}, 
   3.701572873899032*^9, {3.701572942867424*^9, 3.7015729514932127`*^9}, {
   3.701572999632578*^9, 3.70157300187533*^9}, {3.701573072415841*^9, 
   3.701573105384066*^9}, {3.701573135912156*^9, 3.701573236593918*^9}, 
   3.7015733095543756`*^9, {3.701573762039207*^9, 3.701573793419313*^9}, 
   3.701573897625532*^9, {3.7015739682389803`*^9, 3.701574009022398*^9}, {
   3.701574066516243*^9, 3.701574091044753*^9}, {3.701574148947248*^9, 
   3.701574177920608*^9}, {3.701574216839926*^9, 3.7015742452530613`*^9}, {
   3.7015742935043*^9, 3.7015744853105507`*^9}, {3.701574528554394*^9, 
   3.701574549866191*^9}, {3.7015746635712557`*^9, 3.701574700702957*^9}, {
   3.7015747580417967`*^9, 3.701574763518209*^9}, {3.701574805777108*^9, 
   3.701574816038028*^9}, {3.70157486331052*^9, 3.70157486381142*^9}, {
   3.701575081867017*^9, 3.701575157502763*^9}, {3.701575508475271*^9, 
   3.701575527374716*^9}, {3.7015756327866983`*^9, 3.701575729131398*^9}, {
   3.7015757646115103`*^9, 3.7015761053603773`*^9}, {3.701576224662512*^9, 
   3.701576237581895*^9}, {3.701576513390237*^9, 3.701576541436296*^9}, 
   3.70157657496874*^9, {3.701576616568837*^9, 3.701576761641227*^9}, 
   3.7015768804818487`*^9, {3.701576924145898*^9, 3.701577003752709*^9}, {
   3.701577060637154*^9, 3.7015770715136633`*^9}, {3.701577203942514*^9, 
   3.70157721330707*^9}, {3.7015772451006947`*^9, 3.70157729020424*^9}, {
   3.701577329142942*^9, 3.7015773762552137`*^9}, {3.701577407358955*^9, 
   3.701577499359001*^9}, {3.7016169277457447`*^9, 3.7016169318217793`*^9}, {
   3.701617155853527*^9, 3.701617157972024*^9}, 3.7016172154273853`*^9, {
   3.701617615367217*^9, 3.7016176174767303`*^9}, 3.701626322150626*^9, {
   3.701626602640129*^9, 3.70162660465062*^9}, {3.701633702813748*^9, 
   3.7016337320724154`*^9}, {3.701640072458366*^9, 3.701640172991943*^9}, 
   3.7016610605094137`*^9, {3.7016614075973377`*^9, 3.701661430924362*^9}, {
   3.701661474464007*^9, 3.701661563210293*^9}, {3.701662025482936*^9, 
   3.701662055049726*^9}, {3.7016637568221273`*^9, 3.701663761336955*^9}, {
   3.701663995896484*^9, 3.701664010908029*^9}, {3.7016640686490498`*^9, 
   3.7016640907143297`*^9}, {3.7016641754200907`*^9, 3.701664197002104*^9}, {
   3.701664253808507*^9, 3.701664263239764*^9}, {3.701699777692287*^9, 
   3.701699793165062*^9}, {3.701699846261138*^9, 3.7016999240837393`*^9}, {
   3.7016999761738987`*^9, 3.7017000609184303`*^9}, {3.701700141346456*^9, 
   3.7017001440071*^9}, {3.701700324343728*^9, 3.701700385070179*^9}, {
   3.701700477438856*^9, 3.701700486256351*^9}, {3.701700550829247*^9, 
   3.7017005737821913`*^9}, 3.701700619387148*^9, {3.7017008187243357`*^9, 
   3.701700824577177*^9}, 3.7017008910717783`*^9, {3.701701665185361*^9, 
   3.701701767076891*^9}, {3.7017018513579206`*^9, 3.701701941859057*^9}, {
   3.70170229587532*^9, 3.701702450531452*^9}, {3.701702497699009*^9, 
   3.7017025529589567`*^9}, {3.7017026401214657`*^9, 
   3.7017026411809483`*^9}, {3.70170271509216*^9, 3.701702738010936*^9}, {
   3.701702809091752*^9, 3.701703041682629*^9}, 3.702701250152308*^9, 
   3.702701346904353*^9, 3.702732364536338*^9, {3.702733213267289*^9, 
   3.702733222348537*^9}, {3.702733262099968*^9, 3.7027332627155113`*^9}, {
   3.702733444062941*^9, 3.7027335749604883`*^9}, {3.7027336078133307`*^9, 
   3.702733774051916*^9}, {3.702734069514*^9, 3.702734071269536*^9}, {
   3.7027341043633423`*^9, 3.702734173312868*^9}, {3.702734239394732*^9, 
   3.7027342953033457`*^9}, {3.7027343441466208`*^9, 3.702734383064865*^9}, {
   3.702734416046908*^9, 3.70273443248376*^9}, 3.7027344673280697`*^9, {
   3.702734549343318*^9, 3.702734552134282*^9}, {3.702736565490996*^9, 
   3.7027365910456676`*^9}, {3.702736719621603*^9, 3.702736793773529*^9}, {
   3.702736913457934*^9, 3.702736928298594*^9}, 3.7027369594520493`*^9, {
   3.7027370287295637`*^9, 3.702737078529036*^9}, {3.702738738023901*^9, 
   3.702738739419017*^9}, 3.7057019716070957`*^9, {3.705703446590734*^9, 
   3.705703488234556*^9}, {3.705703669616336*^9, 3.705703802582659*^9}, {
   3.705703866282743*^9, 3.705703867997821*^9}, {3.705703898622321*^9, 
   3.705703914229405*^9}, {3.70570400957185*^9, 3.7057040678788023`*^9}, {
   3.705704108405179*^9, 3.70570416132952*^9}, {3.705711927760497*^9, 
   3.7057120010786467`*^9}, {3.70571203354762*^9, 3.7057120660589867`*^9}, {
   3.705712106300902*^9, 3.705712269305687*^9}, {3.705762618217252*^9, 
   3.705762626156495*^9}, {3.7057626661020193`*^9, 3.705762677574415*^9}, {
   3.705849542265444*^9, 3.705849571899502*^9}, {3.705852914200626*^9, 
   3.7058529712640142`*^9}, {3.705854425635311*^9, 3.705854459359414*^9}, {
   3.705854498845619*^9, 3.7058545222010612`*^9}, 3.705869688496698*^9, {
   3.705869722024048*^9, 3.705869753650782*^9}, {3.70586981577283*^9, 
   3.705869859537488*^9}, {3.7058699536236897`*^9, 3.705870019109847*^9}, {
   3.70587007168404*^9, 3.705870078906968*^9}, {3.705870187810989*^9, 
   3.705870329875718*^9}, {3.705870388448897*^9, 3.7058704105125837`*^9}, {
   3.7058704542613688`*^9, 3.705870466777471*^9}, {3.705870605861351*^9, 
   3.705870608146241*^9}, {3.705870680339487*^9, 3.7058707929459*^9}, {
   3.7058708287858133`*^9, 3.70587085541453*^9}, {3.70587142036399*^9, 
   3.705871524645342*^9}, {3.705871658215563*^9, 3.705871903713071*^9}, {
   3.705871947629459*^9, 3.705871986814962*^9}, {3.7058720206136293`*^9, 
   3.7058722070783777`*^9}, {3.705875768468093*^9, 3.705875787809565*^9}, {
   3.705876406524967*^9, 3.705876706316847*^9}, {3.705876780111102*^9, 
   3.705876816829857*^9}, {3.705876860880539*^9, 3.705876985618578*^9}, {
   3.7058770590683117`*^9, 3.705877336133466*^9}, {3.705877369537068*^9, 
   3.7058774764054832`*^9}, {3.705877524516385*^9, 3.705877638961893*^9}, {
   3.705877674017037*^9, 3.705877718930324*^9}, {3.705877779740432*^9, 
   3.705877969852846*^9}, {3.705878006307763*^9, 3.70587802717255*^9}, {
   3.705878063162882*^9, 3.7058781300080423`*^9}, {3.705878388636106*^9, 
   3.7058784130565443`*^9}, {3.705880916767786*^9, 3.705880940207247*^9}, {
   3.7058809769273787`*^9, 3.705881007298613*^9}, {3.7058810522217083`*^9, 
   3.705881573580002*^9}, {3.705881614740683*^9, 3.705881650438177*^9}, {
   3.705881681411207*^9, 3.7058817423245068`*^9}, {3.705882027658107*^9, 
   3.705882329683968*^9}, {3.705882664691626*^9, 3.705882668653379*^9}, {
   3.70588271727808*^9, 3.70588272025996*^9}, {3.705970885770364*^9, 
   3.705970925602974*^9}, 3.706876467998899*^9, 3.706876518687834*^9, 
   3.706876573340568*^9, {3.707078276880631*^9, 3.707078320173067*^9}, 
   3.7070783530664663`*^9, 3.707078392240383*^9, 3.707078679986253*^9, {
   3.70707978620706*^9, 3.707079816427495*^9}, {3.707079850950501*^9, 
   3.707079868765276*^9}, {3.707094708284741*^9, 3.7070947098380957`*^9}, {
   3.707316565622964*^9, 3.70731658444979*^9}, {3.7073166413710003`*^9, 
   3.707316651797008*^9}, {3.707324032344154*^9, 3.707324192566169*^9}, {
   3.707324427764202*^9, 3.7073245499728317`*^9}, {3.707324638955305*^9, 
   3.707324769837427*^9}, {3.707324847235935*^9, 3.707324879658042*^9}, 
   3.707324983889216*^9, {3.707325031786953*^9, 3.707325054130278*^9}, {
   3.707325370262643*^9, 3.7073253731653223`*^9}, {3.707325550500923*^9, 
   3.707325611855568*^9}, {3.707325882166465*^9, 3.7073258902846212`*^9}, {
   3.707325994866222*^9, 3.7073260794052973`*^9}, {3.707326112493132*^9, 
   3.7073262052070227`*^9}, {3.707326241604636*^9, 3.707326551729857*^9}, {
   3.70732658915243*^9, 3.70732693754384*^9}, {3.707326974680737*^9, 
   3.707327046486195*^9}, {3.7073272695867157`*^9, 3.707327433163828*^9}, {
   3.707327480469696*^9, 3.707327634488422*^9}, {3.7074371380147123`*^9, 
   3.707437228422369*^9}, {3.707443690324855*^9, 3.707443781680305*^9}, {
   3.707443851886024*^9, 3.707443858700651*^9}, {3.710541811505639*^9, 
   3.710542178344166*^9}, {3.7105422085257397`*^9, 3.710542329735907*^9}, {
   3.7105423598746634`*^9, 3.710542652252296*^9}, {3.710542684019553*^9, 
   3.710542752348983*^9}, {3.7105839908321447`*^9, 3.710583996101039*^9}, {
   3.711749250762302*^9, 3.711749253602273*^9}, 3.7152845667508173`*^9},
 CellLabel->"In[94]:=",ExpressionUUID->"e7109589-fd8b-40e3-be3f-19aac958df8d"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Summation check (top rows, R incumbent): \"\>", 
   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "1"}],
  SequenceForm[
  "Summation check (top rows, R incumbent): ", 1, " ", 1, " ", 1, " ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7057038059450893`*^9, 3.705703870460106*^9, 3.705703915765538*^9, 
   3.7057040713085213`*^9, {3.7057041097898417`*^9, 3.7057041313708363`*^9}, 
   3.705704163081697*^9, 3.70571200211616*^9, {3.7057120434670563`*^9, 
   3.7057120730003223`*^9}, {3.705712130679468*^9, 3.705712152456943*^9}, 
   3.705712270475923*^9, 3.705762627591217*^9, 3.705762678451263*^9, 
   3.705854460444466*^9, 3.7058545400896378`*^9, 3.705869689625145*^9, 
   3.705869754650679*^9, 3.705869795880816*^9, 3.705869861478652*^9, 
   3.705870084892314*^9, 3.7058703309059668`*^9, 3.7058705371411877`*^9, 
   3.705870609194084*^9, 3.70587079514991*^9, 3.705870856540601*^9, {
   3.705871455164866*^9, 3.705871476343082*^9}, 3.7058716694379587`*^9, 
   3.7058717094268227`*^9, 3.705871804946855*^9, 3.705871888818872*^9, 
   3.7058719689869747`*^9, 3.70587203053819*^9, 3.705872114079899*^9, {
   3.705872187827093*^9, 3.7058722134250927`*^9}, 3.705875790178425*^9, 
   3.705876452834112*^9, 3.7058764874158907`*^9, 3.7058766235587187`*^9, 
   3.705876789602294*^9, 3.705876821236677*^9, 3.7058768811042356`*^9, 
   3.7058769337900953`*^9, 3.705877031329286*^9, 3.705877127566146*^9, 
   3.705877169020447*^9, 3.705877231381858*^9, 3.705877307756609*^9, 
   3.705877338488624*^9, 3.705877537036315*^9, 3.7058775867319927`*^9, {
   3.705877675349352*^9, 3.7058777198465652`*^9}, {3.705877781279291*^9, 
   3.7058778471136503`*^9}, {3.705877880405961*^9, 3.705877901327261*^9}, 
   3.70587813231316*^9, 3.705878414451585*^9, 3.705880941440249*^9, 
   3.705881008406502*^9, {3.705881053484768*^9, 3.705881093435794*^9}, 
   3.7058811260760527`*^9, 3.705881158389175*^9, 3.705881190537878*^9, {
   3.705881221921731*^9, 3.705881302739444*^9}, {3.70588133341547*^9, 
   3.705881353943037*^9}, {3.705881387286446*^9, 3.7058814156022863`*^9}, {
   3.705881447985629*^9, 3.705881476910309*^9}, {3.705881517492401*^9, 
   3.705881544565235*^9}, 3.705881620189148*^9, 3.705881706552004*^9, 
   3.705882035121335*^9, 3.7058820886459827`*^9, 3.7058821241138287`*^9, 
   3.705882170338462*^9, 3.7058822191096992`*^9, {3.705882257559292*^9, 
   3.705882286134391*^9}, {3.705882321756751*^9, 3.705882330959608*^9}, 
   3.7058826739385366`*^9, 3.705882720794808*^9, {3.705970897572432*^9, 
   3.705970926299202*^9}, 3.70597109769339*^9, 3.705972662943801*^9, 
   3.7068732187336082`*^9, 3.7068815124240303`*^9, 3.7068910321863527`*^9, 
   3.706908723478468*^9, 3.707078322949531*^9, 3.707078687862886*^9, 
   3.707079817087681*^9, 3.7070798532756577`*^9, 3.7070925707740173`*^9, 
   3.707092630085787*^9, 3.707275534867364*^9, 3.707324218746236*^9, 
   3.70732455113291*^9, 3.707324771866809*^9, 3.707324986328885*^9, {
   3.707325033476336*^9, 3.7073250556229057`*^9}, 3.707325612846553*^9, 
   3.707325974038694*^9, 3.707326085159197*^9, 3.707326122863658*^9, 
   3.7073262061354933`*^9, 3.707326336058415*^9, 3.707326429682836*^9, 
   3.707326523568388*^9, 3.707326661850977*^9, 3.7073267748676558`*^9, 
   3.707327027107232*^9, 3.707327330107366*^9, {3.707327408618032*^9, 
   3.707327433967832*^9}, {3.7073276171246567`*^9, 3.707327635584556*^9}, 
   3.708869890021789*^9, 3.708883806445057*^9, 3.708896943881152*^9, 
   3.708896995237274*^9, 3.710542658874518*^9, {3.710542706621255*^9, 
   3.7105427530706987`*^9}, 3.710543324877392*^9, 3.710671980356353*^9, 
   3.710672344131689*^9, 3.7106724179663067`*^9, 3.710672498696697*^9, 
   3.710673498320496*^9, 3.711722864264966*^9, 3.71174752858825*^9, 
   3.711748864332459*^9, 3.711749260519882*^9, 3.711749664641471*^9, 
   3.711751852194385*^9, 3.711751955443963*^9, 3.71175203176301*^9, 
   3.711752850195051*^9, 3.711753014429982*^9, 3.711753076652474*^9, 
   3.711755097418088*^9, 3.7117552023801394`*^9, 3.711758237830496*^9, 
   3.711758369640916*^9, 3.711758504595999*^9, 3.711758594479433*^9, 
   3.711758729371951*^9, 3.7117588500992527`*^9, 3.711759171014831*^9, 
   3.711759309182478*^9, 3.711761932327022*^9, 3.71176205417666*^9, {
   3.71176215167407*^9, 3.711762177056119*^9}, 3.711762327857072*^9, 
   3.711964160394658*^9, 3.715262044239607*^9, 3.715265324803184*^9, 
   3.7152743575619497`*^9, 3.715274404497484*^9, 3.715280725221211*^9, 
   3.715281696338718*^9, 3.715281835281138*^9, 3.71528261664496*^9, 
   3.715283495609476*^9, 3.715283838083705*^9, 3.715283968007873*^9, 
   3.715284249022667*^9, 3.715284457927841*^9, 3.7152845771323442`*^9, 
   3.7152875614134417`*^9, 3.7152877509903927`*^9, 3.715288504701264*^9, 
   3.733702850699658*^9, 3.733703541858019*^9, 3.733764826683613*^9, 
   3.836990502079329*^9},
 CellLabel->
  "During evaluation of \
In[94]:=",ExpressionUUID->"52fa2b3d-7c68-45d5-b95b-37b3712df83f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Summation check (bottom rows, L incumbent): \"\>", 
   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "1"}],
  SequenceForm[
  "Summation check (bottom rows, L incumbent): ", 1, " ", 1, " ", 1, " ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7057038059450893`*^9, 3.705703870460106*^9, 3.705703915765538*^9, 
   3.7057040713085213`*^9, {3.7057041097898417`*^9, 3.7057041313708363`*^9}, 
   3.705704163081697*^9, 3.70571200211616*^9, {3.7057120434670563`*^9, 
   3.7057120730003223`*^9}, {3.705712130679468*^9, 3.705712152456943*^9}, 
   3.705712270475923*^9, 3.705762627591217*^9, 3.705762678451263*^9, 
   3.705854460444466*^9, 3.7058545400896378`*^9, 3.705869689625145*^9, 
   3.705869754650679*^9, 3.705869795880816*^9, 3.705869861478652*^9, 
   3.705870084892314*^9, 3.7058703309059668`*^9, 3.7058705371411877`*^9, 
   3.705870609194084*^9, 3.70587079514991*^9, 3.705870856540601*^9, {
   3.705871455164866*^9, 3.705871476343082*^9}, 3.7058716694379587`*^9, 
   3.7058717094268227`*^9, 3.705871804946855*^9, 3.705871888818872*^9, 
   3.7058719689869747`*^9, 3.70587203053819*^9, 3.705872114079899*^9, {
   3.705872187827093*^9, 3.7058722134250927`*^9}, 3.705875790178425*^9, 
   3.705876452834112*^9, 3.7058764874158907`*^9, 3.7058766235587187`*^9, 
   3.705876789602294*^9, 3.705876821236677*^9, 3.7058768811042356`*^9, 
   3.7058769337900953`*^9, 3.705877031329286*^9, 3.705877127566146*^9, 
   3.705877169020447*^9, 3.705877231381858*^9, 3.705877307756609*^9, 
   3.705877338488624*^9, 3.705877537036315*^9, 3.7058775867319927`*^9, {
   3.705877675349352*^9, 3.7058777198465652`*^9}, {3.705877781279291*^9, 
   3.7058778471136503`*^9}, {3.705877880405961*^9, 3.705877901327261*^9}, 
   3.70587813231316*^9, 3.705878414451585*^9, 3.705880941440249*^9, 
   3.705881008406502*^9, {3.705881053484768*^9, 3.705881093435794*^9}, 
   3.7058811260760527`*^9, 3.705881158389175*^9, 3.705881190537878*^9, {
   3.705881221921731*^9, 3.705881302739444*^9}, {3.70588133341547*^9, 
   3.705881353943037*^9}, {3.705881387286446*^9, 3.7058814156022863`*^9}, {
   3.705881447985629*^9, 3.705881476910309*^9}, {3.705881517492401*^9, 
   3.705881544565235*^9}, 3.705881620189148*^9, 3.705881706552004*^9, 
   3.705882035121335*^9, 3.7058820886459827`*^9, 3.7058821241138287`*^9, 
   3.705882170338462*^9, 3.7058822191096992`*^9, {3.705882257559292*^9, 
   3.705882286134391*^9}, {3.705882321756751*^9, 3.705882330959608*^9}, 
   3.7058826739385366`*^9, 3.705882720794808*^9, {3.705970897572432*^9, 
   3.705970926299202*^9}, 3.70597109769339*^9, 3.705972662943801*^9, 
   3.7068732187336082`*^9, 3.7068815124240303`*^9, 3.7068910321863527`*^9, 
   3.706908723478468*^9, 3.707078322949531*^9, 3.707078687862886*^9, 
   3.707079817087681*^9, 3.7070798532756577`*^9, 3.7070925707740173`*^9, 
   3.707092630085787*^9, 3.707275534867364*^9, 3.707324218746236*^9, 
   3.70732455113291*^9, 3.707324771866809*^9, 3.707324986328885*^9, {
   3.707325033476336*^9, 3.7073250556229057`*^9}, 3.707325612846553*^9, 
   3.707325974038694*^9, 3.707326085159197*^9, 3.707326122863658*^9, 
   3.7073262061354933`*^9, 3.707326336058415*^9, 3.707326429682836*^9, 
   3.707326523568388*^9, 3.707326661850977*^9, 3.7073267748676558`*^9, 
   3.707327027107232*^9, 3.707327330107366*^9, {3.707327408618032*^9, 
   3.707327433967832*^9}, {3.7073276171246567`*^9, 3.707327635584556*^9}, 
   3.708869890021789*^9, 3.708883806445057*^9, 3.708896943881152*^9, 
   3.708896995237274*^9, 3.710542658874518*^9, {3.710542706621255*^9, 
   3.7105427530706987`*^9}, 3.710543324877392*^9, 3.710671980356353*^9, 
   3.710672344131689*^9, 3.7106724179663067`*^9, 3.710672498696697*^9, 
   3.710673498320496*^9, 3.711722864264966*^9, 3.71174752858825*^9, 
   3.711748864332459*^9, 3.711749260519882*^9, 3.711749664641471*^9, 
   3.711751852194385*^9, 3.711751955443963*^9, 3.71175203176301*^9, 
   3.711752850195051*^9, 3.711753014429982*^9, 3.711753076652474*^9, 
   3.711755097418088*^9, 3.7117552023801394`*^9, 3.711758237830496*^9, 
   3.711758369640916*^9, 3.711758504595999*^9, 3.711758594479433*^9, 
   3.711758729371951*^9, 3.7117588500992527`*^9, 3.711759171014831*^9, 
   3.711759309182478*^9, 3.711761932327022*^9, 3.71176205417666*^9, {
   3.71176215167407*^9, 3.711762177056119*^9}, 3.711762327857072*^9, 
   3.711964160394658*^9, 3.715262044239607*^9, 3.715265324803184*^9, 
   3.7152743575619497`*^9, 3.715274404497484*^9, 3.715280725221211*^9, 
   3.715281696338718*^9, 3.715281835281138*^9, 3.71528261664496*^9, 
   3.715283495609476*^9, 3.715283838083705*^9, 3.715283968007873*^9, 
   3.715284249022667*^9, 3.715284457927841*^9, 3.7152845771323442`*^9, 
   3.7152875614134417`*^9, 3.7152877509903927`*^9, 3.715288504701264*^9, 
   3.733702850699658*^9, 3.733703541858019*^9, 3.733764826683613*^9, 
   3.836990502166782*^9},
 CellLabel->
  "During evaluation of \
In[94]:=",ExpressionUUID->"b257db15-df48-4fa1-b901-323615ec7de5"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<\\nState transition matrix\>\"", ",", "Blue"}], "]"}], 
    "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"transmat", "=", 
     RowBox[{"{", " ", 
      RowBox[{
      "Rmmm", ",", " ", "Remm", ",", "Rmem", ",", " ", "Reem", ",", " ", 
       "Lmmm", ",", " ", "Lemm", ",", " ", "Lmem", ",", " ", "Leem"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"statetext", "=", 
     RowBox[{"{", " ", 
      RowBox[{
      "\"\<Rmmm\>\"", ",", " ", "\"\<Remm\>\"", ",", "  ", "\"\<Rmem\>\"", 
       ",", " ", "\"\<Reem\>\"", ",", " ", "\"\<Lmmm\>\"", ",", " ", 
       "\"\<Lemm\>\"", ",", " ", "\"\<Lmem\>\"", ",", " ", "\"\<Leem\>\""}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[ScriptCapitalP]", "=", 
     RowBox[{"DiscreteMarkovProcess", "[", 
      RowBox[{"1", ",", 
       RowBox[{"Simplify", "[", "transmat", "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"\[ScriptCapitalP]", "[", "1", "]"}], ",", "x"}], "]"}], "//", 
     "PiecewiseExpand"}], " ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"j", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<Here is element \>\"", ",", "i", ",", "\"\<, \>\"", ",", "j", ",", 
     "\"\< of general transition matrix:  \>\"", ",", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{"transmat", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "[", 
       RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Here is element \>\"", ",", "i", ",", "\"\<, \>\"", ",", 
     RowBox[{"j", " ", "+", "1"}], ",", 
     "\"\< of general transition matrix:  \>\"", ",", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{"transmat", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"j", " ", "+", " ", "1"}], "]"}], "]"}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Clear", "[", 
    RowBox[{
    "\[Sigma]", ",", "\[Alpha]", ",", "\[Rho]", ",", "xm", ",", "\[Delta]", 
     ",", "b", ",", "\[CapitalDelta]", ",", "yrm", ",", " ", "sv", ",", " ", 
     "sd"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sv", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sd", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Sigma]", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Alpha]", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"xm", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Rho]", "=", ".3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]", "=", ".6"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"b", "=", ".62"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"yrm", "=", ".2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[CapitalDelta]", "=", 
     RowBox[{"2", "yrm"}]}], ";"}], " ", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<Here is element \>\"", ",", "i", ",", "\"\<, \>\"", ",", "j", ",", 
     "\"\< of transition matrix for numerical example:  \>\"", ",", 
     RowBox[{
      RowBox[{"transmat", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "[", 
      RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Transition matrix for numerical example: \>\"", ",", 
     RowBox[{"Simplify", "[", "transmat", "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pRmm", "=", 
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"StationaryDistribution", "[", "\[ScriptCapitalP]", "]"}], ",",
        "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pRem", "=", 
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"StationaryDistribution", "[", "\[ScriptCapitalP]", "]"}], ",",
        "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pRme", "=", 
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"StationaryDistribution", "[", "\[ScriptCapitalP]", "]"}], ",",
        "3"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pRee", "=", 
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"StationaryDistribution", "[", "\[ScriptCapitalP]", "]"}], ",",
        "4"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pLmm", "=", 
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"StationaryDistribution", "[", "\[ScriptCapitalP]", "]"}], ",",
        "5"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pLem", "=", 
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"StationaryDistribution", "[", "\[ScriptCapitalP]", "]"}], ",",
        "6"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pLme", "=", 
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"StationaryDistribution", "[", "\[ScriptCapitalP]", "]"}], ",",
        "7"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pLee", "=", 
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"StationaryDistribution", "[", "\[ScriptCapitalP]", "]"}], ",",
        "8"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Print", " ", "[", 
    RowBox[{"\"\<PARTY R -- Rmm: \>\"", ",", " ", 
     RowBox[{
      RowBox[{"t", "[", "1", "]"}], "=", 
      RowBox[{"Simplify", "[", "pRmm", "]"}]}], ",", "\"\<, Rem: \>\"", ",", 
     " ", 
     RowBox[{
      RowBox[{"t", "[", "2", "]"}], "=", 
      RowBox[{"Simplify", "[", "pRem", "]"}]}], ",", "\"\<, Rme: \>\"", ",", 
     " ", 
     RowBox[{
      RowBox[{"t", "[", "3", "]"}], "=", 
      RowBox[{"Simplify", "[", "pRme", "]"}]}], ",", "\"\<, Ree: \>\"", ",", 
     " ", 
     RowBox[{
      RowBox[{"t", "[", "4", "]"}], "=", 
      RowBox[{"Simplify", "[", "pRee", "]"}]}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Print", " ", "[", 
    RowBox[{"\"\<PARTY L -- Lmm: \>\"", ",", " ", 
     RowBox[{
      RowBox[{"t", "[", "5", "]"}], "=", 
      RowBox[{"Simplify", "[", "pLmm", "]"}]}], ",", "\"\<, Lem: \>\"", ",", 
     " ", 
     RowBox[{
      RowBox[{"t", "[", "6", "]"}], "=", 
      RowBox[{"Simplify", "[", "pLem", "]"}]}], ",", "\"\<, Lme: \>\"", ",", 
     " ", 
     RowBox[{
      RowBox[{"t", "[", "7", "]"}], "=", 
      RowBox[{"Simplify", "[", "pLme", "]"}]}], ",", "\"\<, Lee: \>\"", ",", 
     " ", 
     RowBox[{
      RowBox[{"t", "[", "8", "]"}], "=", 
      RowBox[{"Simplify", "[", "pLee", "]"}]}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Sum check of state probabilities: \>\"", ",", 
     RowBox[{"Simplify", "[", 
      RowBox[{
      "pRmm", "+", "pRem", "+", "pRme", "+", "pRee", "+", "pLmm", " ", "+", 
       " ", "pLem", " ", "+", " ", "pLme", " ", "+", " ", "pLee"}], "]"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.715281826461907*^9, 3.7152818276376667`*^9}, {
  3.715282586911565*^9, 3.715282587724276*^9}, {3.715284268123007*^9, 
  3.715284268919837*^9}},
 CellLabel->
  "In[108]:=",ExpressionUUID->"788b70d3-d76b-473c-8c32-8f5cd08e49c8"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"\\nState transition matrix\"\>",
  StripOnInput->False,
  LineColor->RGBColor[0, 0, 1],
  FrontFaceColor->RGBColor[0, 0, 1],
  BackFaceColor->RGBColor[0, 0, 1],
  GraphicsColor->RGBColor[0, 0, 1],
  FontColor->RGBColor[0, 0, 1]]], "Print",
 CellChangeTimes->{
  3.715281838314898*^9, 3.7152826232299232`*^9, {3.715283498809052*^9, 
   3.715283506525959*^9}, 3.715283844103402*^9, 3.7152839721103*^9, 
   3.715284269717608*^9, {3.715284447880184*^9, 3.71528446330473*^9}, 
   3.7152845802143993`*^9, 3.715287566082038*^9, {3.715287753541224*^9, 
   3.7152877623783216`*^9}, 3.715288508626486*^9, 3.733702854464432*^9, 
   3.733703544492106*^9, 3.7337648297271223`*^9, 3.8369905103814573`*^9},
 CellLabel->
  "During evaluation of \
In[108]:=",ExpressionUUID->"d21f5fb1-7d7d-4812-b7dd-a82d86953bc0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Here is element \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" of general transition matrix:  \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"sd", " ", "\[Rho]", " ", "\[Sigma]"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"sv", " ", "\[Rho]", " ", "\[Sigma]"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", "xm"}], "-", 
        RowBox[{"2", " ", "yrm"}], "+", "\[CapitalDelta]", "+", 
        FractionBox[
         RowBox[{"b", " ", "\[Rho]"}], 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"sd", " ", "\[Rho]", " ", "\[Sigma]"}]}]], "+", 
        FractionBox[
         RowBox[{"b", " ", "\[Rho]"}], 
         RowBox[{"1", "-", 
          RowBox[{"sv", " ", "\[Rho]", " ", "\[Sigma]"}]}]]}], "\[Alpha]"]}], 
     ")"}]}]}],
  SequenceForm[
  "Here is element ", 1, ", ", 1, " of general transition matrix:  ", 
   Rational[1, 2] (
    1 - $CellContext`sd $CellContext`\[Rho] $CellContext`\[Sigma]) (
    1 - $CellContext`sv $CellContext`\[Rho] $CellContext`\[Sigma]) (
    1 + $CellContext`\[Alpha]^(-1) (2 $CellContext`xm - 
      2 $CellContext`yrm + $CellContext`\[CapitalDelta] + $CellContext`b \
$CellContext`\[Rho]/(-1 + $CellContext`sd $CellContext`\[Rho] $CellContext`\
\[Sigma]) + $CellContext`b $CellContext`\[Rho]/(
       1 - $CellContext`sv $CellContext`\[Rho] $CellContext`\[Sigma])))],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.715281838314898*^9, 3.7152826232299232`*^9, {3.715283498809052*^9, 
   3.715283506525959*^9}, 3.715283844103402*^9, 3.7152839721103*^9, 
   3.715284269717608*^9, {3.715284447880184*^9, 3.71528446330473*^9}, 
   3.7152845802143993`*^9, 3.715287566082038*^9, {3.715287753541224*^9, 
   3.7152877623783216`*^9}, 3.715288508626486*^9, 3.733702854464432*^9, 
   3.733703544492106*^9, 3.7337648297271223`*^9, 3.836990514098874*^9},
 CellLabel->
  "During evaluation of \
In[108]:=",ExpressionUUID->"2ab586f5-158f-4b9a-a243-065d0f53f1a0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Here is element \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" of general transition matrix:  \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"sv", " ", "\[Rho]", " ", "\[Sigma]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "xm"}], "-", 
           RowBox[{"2", " ", "yrm"}], "+", "\[Alpha]", "-", "\[Delta]", "+", 
           "\[CapitalDelta]"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"sd", " ", "\[Rho]", " ", "\[Sigma]"}]}], ")"}]}], "+", 
        RowBox[{"b", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Rho]", "+", 
           RowBox[{"sd", " ", "\[Rho]", " ", "\[Sigma]"}]}], ")"}]}]}], 
       ")"}]}], 
     RowBox[{"2", " ", "\[Alpha]"}]]}]}],
  SequenceForm[
  "Here is element ", 1, ", ", 2, " of general transition matrix:  ", 
   Rational[-1, 
     2] $CellContext`sv $CellContext`\[Alpha]^(-1) $CellContext`\[Rho] \
$CellContext`\[Sigma] ((2 $CellContext`xm - 
      2 $CellContext`yrm + $CellContext`\[Alpha] - $CellContext`\[Delta] + \
$CellContext`\[CapitalDelta]) (-1 + $CellContext`sd $CellContext`\[Rho] \
$CellContext`\[Sigma]) + $CellContext`b (-1 + $CellContext`\[Rho] + \
$CellContext`sd $CellContext`\[Rho] $CellContext`\[Sigma]))],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.715281838314898*^9, 3.7152826232299232`*^9, {3.715283498809052*^9, 
   3.715283506525959*^9}, 3.715283844103402*^9, 3.7152839721103*^9, 
   3.715284269717608*^9, {3.715284447880184*^9, 3.71528446330473*^9}, 
   3.7152845802143993`*^9, 3.715287566082038*^9, {3.715287753541224*^9, 
   3.7152877623783216`*^9}, 3.715288508626486*^9, 3.733702854464432*^9, 
   3.733703544492106*^9, 3.7337648297271223`*^9, 3.836990514099965*^9},
 CellLabel->
  "During evaluation of \
In[108]:=",ExpressionUUID->"985d172b-e21e-4ca7-b8ca-f7e4bf0342d4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Here is element \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" of transition matrix for numerical example:  \"\
\>", "\[InvisibleSpace]", "0.24499999999999997`"}],
  SequenceForm[
  "Here is element ", 1, ", ", 1, 
   " of transition matrix for numerical example:  ", 0.24499999999999997`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.715281838314898*^9, 3.7152826232299232`*^9, {3.715283498809052*^9, 
   3.715283506525959*^9}, 3.715283844103402*^9, 3.7152839721103*^9, 
   3.715284269717608*^9, {3.715284447880184*^9, 3.71528446330473*^9}, 
   3.7152845802143993`*^9, 3.715287566082038*^9, {3.715287753541224*^9, 
   3.7152877623783216`*^9}, 3.715288508626486*^9, 3.733702854464432*^9, 
   3.733703544492106*^9, 3.7337648297271223`*^9, 3.836990514100587*^9},
 CellLabel->
  "During evaluation of \
In[108]:=",ExpressionUUID->"b0ae7de4-0fff-4226-a3c6-4306c552bd4e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Transition matrix for numerical example: \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "0.24499999999999997`", ",", "0.0921`", ",", "0.11789999999999998`", 
       ",", "0.045`", ",", "0.24499999999999997`", ",", 
       "0.11789999999999998`", ",", "0.0921`", ",", "0.045`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.24499999999999997`", ",", "0.0921`", ",", "0.11789999999999998`", 
       ",", "0.045`", ",", "0.24499999999999997`", ",", 
       "0.11789999999999999`", ",", "0.0921`", ",", "0.045`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.24499999999999997`", ",", "0.0921`", ",", "0.11789999999999999`", 
       ",", "0.045`", ",", "0.24499999999999997`", ",", 
       "0.11789999999999998`", ",", "0.09209999999999999`", ",", "0.045`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.24499999999999997`", ",", "0.0921`", ",", "0.11789999999999998`", 
       ",", "0.045`", ",", "0.24499999999999997`", ",", 
       "0.11789999999999998`", ",", "0.0921`", ",", "0.045`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.24499999999999997`", ",", "0.0921`", ",", "0.11789999999999998`", 
       ",", "0.045`", ",", "0.24499999999999997`", ",", 
       "0.11789999999999998`", ",", "0.0921`", ",", "0.045`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.24499999999999997`", ",", "0.0921`", ",", "0.11789999999999998`", 
       ",", "0.045`", ",", "0.24499999999999997`", ",", 
       "0.11789999999999999`", ",", "0.0921`", ",", "0.045`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.24499999999999997`", ",", "0.0921`", ",", "0.11789999999999999`", 
       ",", "0.045`", ",", "0.24499999999999997`", ",", 
       "0.11789999999999998`", ",", "0.0921`", ",", "0.045`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.24499999999999997`", ",", "0.0921`", ",", "0.11789999999999998`", 
       ",", "0.045`", ",", "0.24499999999999997`", ",", 
       "0.11789999999999998`", ",", "0.0921`", ",", "0.045`"}], "}"}]}], 
    "}"}]}],
  SequenceForm["Transition matrix for numerical example: ", CompressedData["
1:eJxTTMoPSmViYGDggOLo/kNfNWLO22drf5t+d/J2+7BTRkc26u2z57q+uMCW
a7k9TB4mDlOHLk9IfziR+sMJ2J9Fpv2Uun+w+J/a7gcA+Wf+rw==
   "]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.715281838314898*^9, 3.7152826232299232`*^9, {3.715283498809052*^9, 
   3.715283506525959*^9}, 3.715283844103402*^9, 3.7152839721103*^9, 
   3.715284269717608*^9, {3.715284447880184*^9, 3.71528446330473*^9}, 
   3.7152845802143993`*^9, 3.715287566082038*^9, {3.715287753541224*^9, 
   3.7152877623783216`*^9}, 3.715288508626486*^9, 3.733702854464432*^9, 
   3.733703544492106*^9, 3.7337648297271223`*^9, 3.836990514101342*^9},
 CellLabel->
  "During evaluation of \
In[108]:=",ExpressionUUID->"d05a7eb3-40ea-44ec-9a45-2a365e184fc1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"PARTY R -- Rmm: \"\>", "\[InvisibleSpace]", 
   "0.2449999999999999`", "\[InvisibleSpace]", "\<\", Rem: \"\>", 
   "\[InvisibleSpace]", "0.09209999999999999`", 
   "\[InvisibleSpace]", "\<\", Rme: \"\>", "\[InvisibleSpace]", 
   "0.11790000000000007`", "\[InvisibleSpace]", "\<\", Ree: \"\>", 
   "\[InvisibleSpace]", "0.045000000000000026`"}],
  SequenceForm[
  "PARTY R -- Rmm: ", 0.2449999999999999, ", Rem: ", 0.09209999999999999, 
   ", Rme: ", 0.11790000000000007`, ", Ree: ", 0.045000000000000026`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.715281838314898*^9, 3.7152826232299232`*^9, {3.715283498809052*^9, 
   3.715283506525959*^9}, 3.715283844103402*^9, 3.7152839721103*^9, 
   3.715284269717608*^9, {3.715284447880184*^9, 3.71528446330473*^9}, 
   3.7152845802143993`*^9, 3.715287566082038*^9, {3.715287753541224*^9, 
   3.7152877623783216`*^9}, 3.715288508626486*^9, 3.733702854464432*^9, 
   3.733703544492106*^9, 3.7337648297271223`*^9, 3.836990514172201*^9},
 CellLabel->
  "During evaluation of \
In[108]:=",ExpressionUUID->"17e0e136-092b-47be-a95a-665b7505a25b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"PARTY L -- Lmm: \"\>", "\[InvisibleSpace]", 
   "0.24499999999999997`", "\[InvisibleSpace]", "\<\", Lem: \"\>", 
   "\[InvisibleSpace]", "0.11789999999999998`", 
   "\[InvisibleSpace]", "\<\", Lme: \"\>", "\[InvisibleSpace]", 
   "0.09210000000000002`", "\[InvisibleSpace]", "\<\", Lee: \"\>", 
   "\[InvisibleSpace]", "0.04500000000000002`"}],
  SequenceForm[
  "PARTY L -- Lmm: ", 0.24499999999999997`, ", Lem: ", 0.11789999999999998`, 
   ", Lme: ", 0.09210000000000002, ", Lee: ", 0.04500000000000002],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.715281838314898*^9, 3.7152826232299232`*^9, {3.715283498809052*^9, 
   3.715283506525959*^9}, 3.715283844103402*^9, 3.7152839721103*^9, 
   3.715284269717608*^9, {3.715284447880184*^9, 3.71528446330473*^9}, 
   3.7152845802143993`*^9, 3.715287566082038*^9, {3.715287753541224*^9, 
   3.7152877623783216`*^9}, 3.715288508626486*^9, 3.733702854464432*^9, 
   3.733703544492106*^9, 3.7337648297271223`*^9, 3.836990514172887*^9},
 CellLabel->
  "During evaluation of \
In[108]:=",ExpressionUUID->"25de689c-385f-4cf1-bcf8-021694ee10e2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Sum check of state probabilities: \"\>", "\[InvisibleSpace]", 
   "1.`"}],
  SequenceForm["Sum check of state probabilities: ", 1.],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.715281838314898*^9, 3.7152826232299232`*^9, {3.715283498809052*^9, 
   3.715283506525959*^9}, 3.715283844103402*^9, 3.7152839721103*^9, 
   3.715284269717608*^9, {3.715284447880184*^9, 3.71528446330473*^9}, 
   3.7152845802143993`*^9, 3.715287566082038*^9, {3.715287753541224*^9, 
   3.7152877623783216`*^9}, 3.715288508626486*^9, 3.733702854464432*^9, 
   3.733703544492106*^9, 3.7337648297271223`*^9, 3.836990514173428*^9},
 CellLabel->
  "During evaluation of \
In[108]:=",ExpressionUUID->"826c7c88-e262-4d4b-90b2-adc8256b5fb9"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Functions used in calculation of quantities of interest\>\"", ",", 
      " ", "Blue"}], "]"}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
   "Print", "[", 
    "\"\<Probability of running as extreme after re-election vs. loss of \
power:\>\"", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "prob", " ", "of", " ", "becoming", " ", "extreme", " ", "in", " ", 
     "next", " ", "pd", " ", "starting", " ", "from", " ", "j"}], " ", "*)"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Rext", "[", "j_", "]"}], " ", ":=", " ", 
    RowBox[{"Total", "[", 
     RowBox[{
      RowBox[{"transmat", "[", 
       RowBox[{"[", "j", "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"{", 
        RowBox[{"2", ",", " ", "4", ",", " ", "6", ",", " ", "8"}], "}"}], 
       "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Lext", "[", "j_", "]"}], " ", ":=", " ", 
    RowBox[{"Total", "[", 
     RowBox[{
      RowBox[{"transmat", "[", 
       RowBox[{"[", "j", "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"{", 
        RowBox[{"3", ",", " ", "4", ",", " ", "7", ",", " ", "8"}], "}"}], 
       "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "prob", " ", "of", " ", "starting", " ", "from", " ", "i", " ", "and", 
     " ", "moving", " ", "to", " ", "j", " ", "and", " ", "then", " ", 
     "becoming", " ", "extreme"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Rprobext", "[", 
     RowBox[{"i_", ",", " ", "j_"}], "]"}], ":=", " ", 
    RowBox[{
     RowBox[{"t", "[", "i", "]"}], " ", "*", " ", 
     RowBox[{
      RowBox[{"transmat", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "[", 
      RowBox[{"[", "j", "]"}], "]"}], " ", "*", " ", 
     RowBox[{"Rext", "[", "j", "]"}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Lprobext", "[", 
     RowBox[{"i_", ",", " ", "j_"}], "]"}], " ", ":=", " ", 
    RowBox[{
     RowBox[{"t", "[", "i", "]"}], " ", "*", " ", 
     RowBox[{
      RowBox[{"transmat", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "[", 
      RowBox[{"[", "j", "]"}], "]"}], " ", "*", " ", 
     RowBox[{"Lext", "[", "j", "]"}]}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "prob", " ", "of", " ", "starting", " ", "from", " ", "k", " ", "and", 
     " ", "winning", " ", "and", " ", "then", " ", "becoming", " ", 
     "extreme"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Rwinext", "[", "k_", "]"}], " ", ":=", " ", 
    RowBox[{
     RowBox[{"Rprobext", "[", 
      RowBox[{"k", ",", " ", "1"}], "]"}], " ", "+", " ", 
     RowBox[{"Rprobext", "[", 
      RowBox[{"k", ",", " ", "2"}], "]"}], " ", "+", " ", 
     RowBox[{"Rprobext", "[", 
      RowBox[{"k", ",", " ", "3"}], "]"}], " ", "+", " ", 
     RowBox[{"Rprobext", "[", 
      RowBox[{"k", ",", " ", "4"}], "]"}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Lwinext", "[", "k_", "]"}], " ", ":=", " ", 
    RowBox[{
     RowBox[{"Lprobext", "[", 
      RowBox[{"k", ",", " ", "5"}], "]"}], " ", "+", " ", 
     RowBox[{"Lprobext", "[", 
      RowBox[{"k", ",", " ", "6"}], "]"}], " ", "+", " ", 
     RowBox[{"Lprobext", "[", 
      RowBox[{"k", ",", " ", "7"}], "]"}], " ", "+", " ", 
     RowBox[{"Lprobext", "[", 
      RowBox[{"k", ",", " ", "8"}], "]"}]}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "prob", " ", "of", " ", "starting", " ", "from", " ", "l", " ", "and", 
     " ", "losing", " ", "and", " ", "then", " ", "becoming", " ", 
     "extreme"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Rloseext", "[", "l_", "]"}], ":=", "  ", 
    RowBox[{
     RowBox[{"Rprobext", "[", 
      RowBox[{"l", ",", " ", "5"}], "]"}], " ", "+", " ", 
     RowBox[{"Rprobext", "[", 
      RowBox[{"l", ",", " ", "6"}], "]"}], " ", "+", " ", 
     RowBox[{"Rprobext", "[", 
      RowBox[{"l", ",", " ", "7"}], "]"}], " ", "+", " ", 
     RowBox[{"Rprobext", "[", 
      RowBox[{"l", ",", " ", "8"}], "]"}]}]}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Lloseext", "[", "l_", "]"}], ":=", " ", 
    RowBox[{
     RowBox[{"Lprobext", "[", 
      RowBox[{"l", ",", " ", "1"}], "]"}], " ", "+", " ", 
     RowBox[{"Lprobext", "[", 
      RowBox[{"l", ",", " ", "2"}], "]"}], " ", "+", " ", 
     RowBox[{"Lprobext", "[", 
      RowBox[{"l", ",", " ", "3"}], "]"}], " ", "+", " ", 
     RowBox[{"Lprobext", "[", 
      RowBox[{"l", ",", " ", "4"}], "]"}]}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", "\"\<Probability of reversal:\>\"", "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "This", " ", "section", " ", "derives", " ", "predictions", " ", "for", 
      " ", "the", " ", "finding", " ", "that", " ", "subsequent", " ", "to", 
      " ", "a", " ", "loss", " ", "of", " ", "power", " ", "in", " ", "t1"}], 
     ",", " ", 
     RowBox[{
      RowBox[{
      "parties", " ", "reverse", " ", "course", " ", "more", " ", "strongly", 
       " ", "in", " ", "t2", " ", "than", " ", "if", " ", "they", " ", "win", 
       " ", "re"}], "-", 
      RowBox[{
       RowBox[{"election", ".", " ", "This"}], " ", "reversal", " ", "takes", 
       " ", "the", " ", "form", " ", "of", " ", "MEM", " ", "or", " ", "EME", 
       " ", "given", " ", "two", " ", "factions", " ", "per", " ", 
       RowBox[{"party", ".", " ", "This"}], " ", "finding", " ", "is", " ", 
       "seemingly", " ", "the", " ", "most", " ", 
       RowBox[{"robust", "."}]}]}]}], "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<\\n Probability of Reversal from last move after win vs. loss:\>\"",
       ",", " ", "Blue"}], "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "prob", " ", "of", " ", "becoming", " ", "moderate", " ", "in", " ", 
     "next", " ", "pd", " ", "starting", " ", "from", " ", "j"}], " ", "*)"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Rmod", "[", "j_", "]"}], " ", ":=", " ", 
    RowBox[{"Total", "[", 
     RowBox[{
      RowBox[{"transmat", "[", 
       RowBox[{"[", "j", "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", " ", "5", ",", " ", "7"}], "}"}], "]"}], 
      "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Lmod", "[", "j_", "]"}], " ", ":=", " ", 
    RowBox[{"Total", "[", 
     RowBox[{
      RowBox[{"transmat", "[", 
       RowBox[{"[", "j", "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2", ",", " ", "5", ",", " ", "6"}], "}"}], "]"}], 
      "]"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"prReme", "[", 
     RowBox[{"i_", ",", " ", "j_"}], "]"}], " ", ":=", 
    RowBox[{
     RowBox[{"t", "[", "i", "]"}], "*", " ", 
     RowBox[{
      RowBox[{"transmat", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "[", 
      RowBox[{"[", "j", "]"}], "]"}], " ", "*", " ", 
     RowBox[{"Rext", "[", "j", "]"}]}]}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"prLeme", "[", 
     RowBox[{"i_", ",", "j_"}], "]"}], " ", ":=", 
    RowBox[{
     RowBox[{"t", "[", "i", "]"}], " ", "*", " ", 
     RowBox[{
      RowBox[{"transmat", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "[", 
      RowBox[{"[", "j", "]"}], "]"}], " ", "*", " ", 
     RowBox[{"Lext", "[", "j", "]"}]}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "Starting", " ", "with", " ", "moderate", " ", "faction", " ", "in", " ",
       "power"}], ",", " ", 
     RowBox[{
     "this", " ", "generates", " ", "the", " ", "probability", " ", "of", " ",
       "seeing", " ", "MEM", " ", "for", " ", "some", " ", "starting", " ", 
      "state", " ", 
      RowBox[{"i", ":"}]}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"prRmem", "[", 
     RowBox[{"i_", ",", " ", "j_"}], "]"}], " ", ":=", 
    RowBox[{
     RowBox[{"t", "[", "i", "]"}], "*", " ", 
     RowBox[{
      RowBox[{"transmat", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "[", 
      RowBox[{"[", "j", "]"}], "]"}], " ", "*", " ", 
     RowBox[{"Rmod", "[", "j", "]"}]}]}], "  ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"prLmem", "[", 
     RowBox[{"i_", ",", " ", "j_"}], "]"}], " ", ":=", " ", 
    RowBox[{
     RowBox[{"t", "[", "i", "]"}], " ", "*", " ", 
     RowBox[{
      RowBox[{"transmat", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "[", 
      RowBox[{"[", "j", "]"}], "]"}], " ", "*", " ", 
     RowBox[{"Lmod", "[", "j", "]"}]}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", "\"\<Probability of adjustment:\>\"", "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Radjt2", "[", 
     RowBox[{"i_", ",", " ", "j_"}], "]"}], " ", ":=", " ", 
    RowBox[{
     RowBox[{"t", "[", "i", "]"}], "*", " ", 
     RowBox[{"(", "\[IndentingNewLine]", "  ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"transmat", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", "j", "]"}], "]"}], " ", 
        RowBox[{"Rext", "[", "j", "]"}]}], " ", "+", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"transmat", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"j", "+", "2"}], "]"}], "]"}], 
        RowBox[{"Rext", "[", 
         RowBox[{"j", "+", "2"}], "]"}]}], " ", "+", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"transmat", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"j", "+", "1"}], "]"}], "]"}], " ", 
        RowBox[{"Rmod", "[", 
         RowBox[{"j", "+", "1"}], "]"}]}], " ", "+", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"transmat", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"j", "+", "3"}], "]"}], "]"}], " ", 
        RowBox[{"Rmod", "[", 
         RowBox[{"j", "+", "3"}], "]"}]}]}], " ", ")"}]}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Ladjt2", "[", 
     RowBox[{"i_", ",", " ", "j_"}], "]"}], " ", ":=", " ", 
    RowBox[{
     RowBox[{"t", "[", "i", "]"}], " ", "*", 
     RowBox[{"(", "\[IndentingNewLine]", "  ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"transmat", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", "j", "]"}], "]"}], " ", 
        RowBox[{"Lext", "[", "j", "]"}]}], " ", "+", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"transmat", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", "j", "]"}], "]"}], " ", 
        RowBox[{"Lext", "[", 
         RowBox[{"j", "+", "1"}], "]"}]}], " ", "+", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"transmat", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", "j", "]"}], "]"}], " ", 
        RowBox[{"Lmod", "[", 
         RowBox[{"j", "+", "2"}], "]"}]}], " ", "+", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"transmat", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", "j", "]"}], "]"}], " ", 
        RowBox[{"Lmod", "[", 
         RowBox[{"j", "+", "3"}], "]"}]}]}], ")"}]}]}], "\[IndentingNewLine]",
    "\[IndentingNewLine]", 
   RowBox[{"Print", "[", "\"\<R prob of Victory:\>\"", "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Rvic", "[", "i_", "]"}], " ", ":=", "  ", 
    RowBox[{"Total", "[", 
     RowBox[{
      RowBox[{"transmat", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2", ",", " ", "3", ",", " ", "4"}], "}"}], "]"}], 
      "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"TotProbRwin", "[", "m_", "]"}], ":=", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"t", "[", "m", "]"}], " ", "*", " ", 
      RowBox[{"Rvic", "[", "m", "]"}]}], " ", "+", " ", 
     RowBox[{
      RowBox[{"t", "[", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}], "]"}], " ", "*", " ", 
      RowBox[{"Rvic", "[", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}], "]"}]}], " ", "+", " ", 
     RowBox[{
      RowBox[{"t", "[", 
       RowBox[{"(", 
        RowBox[{"m", "+", "2"}], ")"}], "]"}], " ", "*", " ", 
      RowBox[{"Rvic", "[", 
       RowBox[{"(", 
        RowBox[{"m", "+", "2"}], ")"}], "]"}]}], " ", "+", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"t", "[", 
       RowBox[{"(", 
        RowBox[{"m", "+", "3"}], ")"}], "]"}], " ", "*", " ", 
      RowBox[{"Rvic", "[", 
       RowBox[{"(", 
        RowBox[{"m", "+", "3"}], ")"}], "]"}]}], " ", "+", " ", 
     RowBox[{
      RowBox[{"t", "[", 
       RowBox[{"(", 
        RowBox[{"m", "+", "4"}], ")"}], "]"}], " ", "*", " ", 
      RowBox[{"Rvic", "[", 
       RowBox[{"(", 
        RowBox[{"m", "+", "4"}], ")"}], "]"}]}], " ", "+", " ", 
     RowBox[{
      RowBox[{"t", "[", 
       RowBox[{"(", 
        RowBox[{"m", "+", "5"}], ")"}], "]"}], "*", " ", 
      RowBox[{"Rvic", "[", 
       RowBox[{"(", 
        RowBox[{"m", "+", "5"}], ")"}], "]"}]}], " ", "+", " ", 
     RowBox[{
      RowBox[{"t", "[", 
       RowBox[{"(", 
        RowBox[{"m", "+", "6"}], ")"}], "]"}], " ", "*", " ", 
      RowBox[{"Rvic", "[", 
       RowBox[{"(", 
        RowBox[{"m", "+", "6"}], ")"}], "]"}]}], "+", " ", 
     RowBox[{
      RowBox[{"t", "[", 
       RowBox[{"(", 
        RowBox[{"m", "+", "7"}], ")"}], "]"}], " ", "*", " ", 
      RowBox[{"Rvic", "[", 
       RowBox[{"(", 
        RowBox[{"m", "+", "7"}], ")"}], "]"}]}]}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQLZRdrTBz+WvHKfLmqiDa4Nl1CxB9ewavNYj+cH+5
P4iOOiMVAqLNqrgjQPSvNVfBtJ1w6XWfda8dm7jzuXyB9GV7Dx0Q7WIaYwii
JUPXnwfRkQ7JF0B0UH76fRCd9urRExCtqrjwPYgWONHB5AdSr32eDUSvzNrJ
BaI5FG0FQHTU/PuCIJpNyVQcRAdMl9cA0ReurzcAq0vmcwTRr7hEXUH0B+mm
IBC9T1gxEkT75V6IBtEKfzZlgOiIvMvFIDre6W0niO4z/A6mc6+Z9YPox7Wf
Z4PomvfZG4OA9LSaDjANALtVmD8=
  "],ExpressionUUID->"aabcda24-c2ee-4e63-8261-80ebfb6c4464"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Functions used in calculation of quantities of interest\"\>",
  StripOnInput->False,
  LineColor->RGBColor[0, 0, 1],
  FrontFaceColor->RGBColor[0, 0, 1],
  BackFaceColor->RGBColor[0, 0, 1],
  GraphicsColor->RGBColor[0, 0, 1],
  FontColor->RGBColor[0, 0, 1]]], "Print",
 CellChangeTimes->{{3.715265346381034*^9, 3.715265364115121*^9}, 
   3.7152654393396606`*^9, 3.715265618839404*^9, 3.715265708563183*^9, 
   3.715265760830222*^9, 3.7152743664964867`*^9, 3.715274417247011*^9, 
   3.715280751322872*^9, 3.7152817012935953`*^9, 3.7152818451328907`*^9, 
   3.715282658554346*^9, 3.715283522171398*^9, 3.715283851373076*^9, 
   3.715283983530756*^9, 3.715284274737595*^9, 3.7152844688639517`*^9, 
   3.715284587124477*^9, 3.715284763720586*^9, 3.7152875773882236`*^9, 
   3.715287772085288*^9, 3.715288513363016*^9, 3.733702873033576*^9, 
   3.733703555300107*^9, 
   3.733764832981469*^9},ExpressionUUID->"08790340-434e-43a9-8bf9-\
772aaf813dc8"],

Cell[BoxData["\<\"Probability of running as extreme after re-election vs. \
loss of power:\"\>"], "Print",
 CellChangeTimes->{{3.715265346381034*^9, 3.715265364115121*^9}, 
   3.7152654393396606`*^9, 3.715265618839404*^9, 3.715265708563183*^9, 
   3.715265760830222*^9, 3.7152743664964867`*^9, 3.715274417247011*^9, 
   3.715280751322872*^9, 3.7152817012935953`*^9, 3.7152818451328907`*^9, 
   3.715282658554346*^9, 3.715283522171398*^9, 3.715283851373076*^9, 
   3.715283983530756*^9, 3.715284274737595*^9, 3.7152844688639517`*^9, 
   3.715284587124477*^9, 3.715284763720586*^9, 3.7152875773882236`*^9, 
   3.715287772085288*^9, 3.715288513363016*^9, 3.733702873033576*^9, 
   3.733703555300107*^9, 
   3.733764832996653*^9},ExpressionUUID->"b5855896-176a-4451-9406-\
b95b28f2d974"],

Cell[BoxData["\<\"Probability of reversal:\"\>"], "Print",
 CellChangeTimes->{{3.715265346381034*^9, 3.715265364115121*^9}, 
   3.7152654393396606`*^9, 3.715265618839404*^9, 3.715265708563183*^9, 
   3.715265760830222*^9, 3.7152743664964867`*^9, 3.715274417247011*^9, 
   3.715280751322872*^9, 3.7152817012935953`*^9, 3.7152818451328907`*^9, 
   3.715282658554346*^9, 3.715283522171398*^9, 3.715283851373076*^9, 
   3.715283983530756*^9, 3.715284274737595*^9, 3.7152844688639517`*^9, 
   3.715284587124477*^9, 3.715284763720586*^9, 3.7152875773882236`*^9, 
   3.715287772085288*^9, 3.715288513363016*^9, 3.733702873033576*^9, 
   3.733703555300107*^9, 
   3.733764833016007*^9},ExpressionUUID->"97c1a343-2a12-4be2-8296-\
f6ca2e8f8594"],

Cell[BoxData[
 StyleBox["\<\"\\n Probability of Reversal from last move after win vs. loss:\
\"\>",
  StripOnInput->False,
  LineColor->RGBColor[0, 0, 1],
  FrontFaceColor->RGBColor[0, 0, 1],
  BackFaceColor->RGBColor[0, 0, 1],
  GraphicsColor->RGBColor[0, 0, 1],
  FontColor->RGBColor[0, 0, 1]]], "Print",
 CellChangeTimes->{{3.715265346381034*^9, 3.715265364115121*^9}, 
   3.7152654393396606`*^9, 3.715265618839404*^9, 3.715265708563183*^9, 
   3.715265760830222*^9, 3.7152743664964867`*^9, 3.715274417247011*^9, 
   3.715280751322872*^9, 3.7152817012935953`*^9, 3.7152818451328907`*^9, 
   3.715282658554346*^9, 3.715283522171398*^9, 3.715283851373076*^9, 
   3.715283983530756*^9, 3.715284274737595*^9, 3.7152844688639517`*^9, 
   3.715284587124477*^9, 3.715284763720586*^9, 3.7152875773882236`*^9, 
   3.715287772085288*^9, 3.715288513363016*^9, 3.733702873033576*^9, 
   3.733703555300107*^9, 
   3.733764833039425*^9},ExpressionUUID->"f07c2cb0-c227-47d2-b9c5-\
410d9296cd7c"],

Cell[BoxData["\<\"Probability of adjustment:\"\>"], "Print",
 CellChangeTimes->{{3.715265346381034*^9, 3.715265364115121*^9}, 
   3.7152654393396606`*^9, 3.715265618839404*^9, 3.715265708563183*^9, 
   3.715265760830222*^9, 3.7152743664964867`*^9, 3.715274417247011*^9, 
   3.715280751322872*^9, 3.7152817012935953`*^9, 3.7152818451328907`*^9, 
   3.715282658554346*^9, 3.715283522171398*^9, 3.715283851373076*^9, 
   3.715283983530756*^9, 3.715284274737595*^9, 3.7152844688639517`*^9, 
   3.715284587124477*^9, 3.715284763720586*^9, 3.7152875773882236`*^9, 
   3.715287772085288*^9, 3.715288513363016*^9, 3.733702873033576*^9, 
   3.733703555300107*^9, 
   3.7337648330574703`*^9},ExpressionUUID->"8962ada0-91d3-482c-b903-\
36662b16841f"],

Cell[BoxData["\<\"R prob of Victory:\"\>"], "Print",
 CellChangeTimes->{{3.715265346381034*^9, 3.715265364115121*^9}, 
   3.7152654393396606`*^9, 3.715265618839404*^9, 3.715265708563183*^9, 
   3.715265760830222*^9, 3.7152743664964867`*^9, 3.715274417247011*^9, 
   3.715280751322872*^9, 3.7152817012935953`*^9, 3.7152818451328907`*^9, 
   3.715282658554346*^9, 3.715283522171398*^9, 3.715283851373076*^9, 
   3.715283983530756*^9, 3.715284274737595*^9, 3.7152844688639517`*^9, 
   3.715284587124477*^9, 3.715284763720586*^9, 3.7152875773882236`*^9, 
   3.715287772085288*^9, 3.715288513363016*^9, 3.733702873033576*^9, 
   3.733703555300107*^9, 
   3.7337648330799713`*^9},ExpressionUUID->"1453f01b-4992-4475-ae88-\
9fef62122204"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Print", "[", "\"\<Read in parameter sets\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"mat", " ", "=", " ", 
  RowBox[{
  "Import", "[", "\"\<Data/params.csv\>\"", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "mat", "]"}], "\[IndentingNewLine]", 
 RowBox[{"mat", "[", 
  RowBox[{"[", "2", "]"}], "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.7117506973840237`*^9, 3.711750749022669*^9}, {
   3.711750839947132*^9, 3.7117508526734943`*^9}, {3.711750996978077*^9, 
   3.711751019523595*^9}, {3.711752964741836*^9, 3.711752967414625*^9}, {
   3.7117587658007317`*^9, 3.711758767841716*^9}, {3.711758798719831*^9, 
   3.71175882415303*^9}, {3.715282703307486*^9, 3.715282706448226*^9}, {
   3.715283592298925*^9, 3.7152835945972967`*^9}, {3.7152837397540827`*^9, 
   3.71528373985439*^9}, {3.715283898884049*^9, 3.7152839310553102`*^9}, {
   3.715283993486731*^9, 3.71528400179212*^9}, {3.715284690474334*^9, 
   3.715284695849071*^9}, {3.715287582054007*^9, 3.715287593107789*^9}, 
   3.715287778094619*^9, {3.715288419291236*^9, 3.715288421264023*^9}, {
   3.7337034410314617`*^9, 3.733703455875804*^9}, 3.83699053002142*^9, {
   3.836990712697122*^9, 3.8369907155872097`*^9}},
 CellLabel->
  "In[160]:=",ExpressionUUID->"d54667f8-85f3-4228-b429-77cd7bc61f5d"],

Cell[BoxData["\<\"Read in parameter sets\"\>"], "Print",
 CellChangeTimes->{
  3.711750753205502*^9, 3.711750853126296*^9, {3.711750998017949*^9, 
   3.711751020246312*^9}, 3.711751237490534*^9, 3.7117518671540956`*^9, 
   3.711752049198625*^9, 3.711752969972172*^9, 3.711753091461207*^9, 
   3.711755121549988*^9, 3.7117552178475313`*^9, 3.711758249993153*^9, 
   3.711758392476935*^9, 3.711758519770853*^9, 3.71175861278545*^9, {
   3.711758787664114*^9, 3.711758824565516*^9}, 3.711758880694523*^9, 
   3.711759186356757*^9, 3.7117593208559427`*^9, 3.711759454603924*^9, 
   3.711761943021105*^9, 3.711762191602871*^9, 3.711762343154233*^9, 
   3.711964178157728*^9, 3.715265444381962*^9, 3.715265627454273*^9, 
   3.715274373410718*^9, 3.715274424688264*^9, 3.715280766571807*^9, 
   3.715281706834751*^9, 3.715282706861465*^9, 3.715283529943112*^9, 
   3.7152835950579348`*^9, 3.715283740358697*^9, 3.7152838579965277`*^9, {
   3.715283911462954*^9, 3.715283931449226*^9}, {3.715283989970105*^9, 
   3.7152840025081244`*^9}, 3.715284281028481*^9, 3.7152844734733677`*^9, 
   3.715284591980044*^9, {3.715284691098009*^9, 3.715284696543333*^9}, 
   3.7152875947307177`*^9, 3.71528778046938*^9, {3.715288417772285*^9, 
   3.71528842187146*^9}, 3.7152885213087893`*^9, 3.733703456902117*^9, 
   3.733703557952257*^9, 3.7337648369851217`*^9, {3.8369907089605913`*^9, 
   3.836990716904358*^9}},
 CellLabel->
  "During evaluation of \
In[160]:=",ExpressionUUID->"89967bef-6f4a-4770-a176-5e12a4e67704"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.3`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.29`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.28`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.27`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.26`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.25`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.24`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.23`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.22`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.21`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.2`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.19`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.18`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.17`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.16`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.15`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.14`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.13`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.12`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.11`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.1`"}], ",", "0.25`", ",", "0.5`"}], "}"}], ",", 
           TemplateBox[{"13866"},
            "OutputSizeLimit`Skeleton"], ",", 
           RowBox[{"{", 
            RowBox[{"0.1`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.11`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.12`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.13`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.14`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.15`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.16`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.17`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.18`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.19`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.2`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.21`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.22`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.23`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.24`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.25`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.26`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.27`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.28`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.29`", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.3`", ",", "1", ",", "1"}], "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          PaneBox[
           TagBox[
            TooltipBox[
             StyleBox[
              StyleBox[
               DynamicBox[ToBoxes[
                 FEPrivate`FrontEndResource[
                 "FEStrings", "sizeBriefExplanation"], StandardForm],
                ImageSizeCache->{59., {2., 8.}}],
               StripOnInput->False,
               DynamicUpdating->True,
               LineSpacing->{1, 2},
               LineIndent->0,
               LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
              StripOnInput->False],
             StyleBox[
              DynamicBox[
               ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
                StandardForm]], DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}, StripOnInput -> False]],
            Annotation[#, 
             Style[
              Dynamic[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
              DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}], "Tooltip"]& ],
           Alignment->Center,
           BaselinePosition->Baseline,
           ImageSize->{Automatic, {25, Full}}], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{51., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 161, 19512202083790808933, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 161, 19512202083790808933, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{42., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 161, 19512202083790808933, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{77., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[19512202083790808933 === $SessionID, 
   Out[161], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->{
  3.711750753312162*^9, 3.71175085329854*^9, {3.711750998077505*^9, 
   3.7117510203039913`*^9}, 3.711751237541688*^9, 3.711751867203916*^9, 
   3.711752049318541*^9, 3.711752970202773*^9, 3.711753091573121*^9, 
   3.711755121857594*^9, 3.711755218171565*^9, 3.711758250255991*^9, 
   3.711758392874607*^9, 3.7117585201301537`*^9, 3.711758613127667*^9, {
   3.711758788094839*^9, 3.7117588248424377`*^9}, 3.711758880942863*^9, 
   3.711759186618395*^9, 3.7117593211140337`*^9, 3.711759454855549*^9, 
   3.711761943269946*^9, 3.7117621919854527`*^9, 3.711762343414858*^9, 
   3.711964178552821*^9, 3.71526544498556*^9, 3.715265627703618*^9, 
   3.715274373656166*^9, 3.715274424943695*^9, 3.7152807668338633`*^9, 
   3.715281707149378*^9, 3.715282707212175*^9, 3.7152835302051897`*^9, 
   3.715283595314896*^9, 3.7152837406075783`*^9, 3.715283858252084*^9, {
   3.7152839115564117`*^9, 3.715283931533348*^9}, {3.715283990154612*^9, 
   3.715284002599141*^9}, 3.715284281116517*^9, 3.715284473566259*^9, 
   3.7152845920705843`*^9, {3.71528469135455*^9, 3.715284696807341*^9}, 
   3.715287594841958*^9, 3.715287780729135*^9, {3.7152884180131598`*^9, 
   3.715288422106633*^9}, 3.715288521627469*^9, 3.7337034573167686`*^9, 
   3.733703558250103*^9, 3.733764837222349*^9, {3.8369907090333757`*^9, 
   3.8369907171659813`*^9}},
 CellLabel->
  "Out[161]=",ExpressionUUID->"b46a4a47-6b6a-4b42-b2a4-eabc77b66e74"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"13908", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{
  3.711750753312162*^9, 3.71175085329854*^9, {3.711750998077505*^9, 
   3.7117510203039913`*^9}, 3.711751237541688*^9, 3.711751867203916*^9, 
   3.711752049318541*^9, 3.711752970202773*^9, 3.711753091573121*^9, 
   3.711755121857594*^9, 3.711755218171565*^9, 3.711758250255991*^9, 
   3.711758392874607*^9, 3.7117585201301537`*^9, 3.711758613127667*^9, {
   3.711758788094839*^9, 3.7117588248424377`*^9}, 3.711758880942863*^9, 
   3.711759186618395*^9, 3.7117593211140337`*^9, 3.711759454855549*^9, 
   3.711761943269946*^9, 3.7117621919854527`*^9, 3.711762343414858*^9, 
   3.711964178552821*^9, 3.71526544498556*^9, 3.715265627703618*^9, 
   3.715274373656166*^9, 3.715274424943695*^9, 3.7152807668338633`*^9, 
   3.715281707149378*^9, 3.715282707212175*^9, 3.7152835302051897`*^9, 
   3.715283595314896*^9, 3.7152837406075783`*^9, 3.715283858252084*^9, {
   3.7152839115564117`*^9, 3.715283931533348*^9}, {3.715283990154612*^9, 
   3.715284002599141*^9}, 3.715284281116517*^9, 3.715284473566259*^9, 
   3.7152845920705843`*^9, {3.71528469135455*^9, 3.715284696807341*^9}, 
   3.715287594841958*^9, 3.715287780729135*^9, {3.7152884180131598`*^9, 
   3.715288422106633*^9}, 3.715288521627469*^9, 3.7337034573167686`*^9, 
   3.733703558250103*^9, 3.733764837222349*^9, {3.8369907090333757`*^9, 
   3.836990717171297*^9}},
 CellLabel->
  "Out[162]=",ExpressionUUID->"76387eb2-fbad-4bf7-844d-158528c5f91c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.29`"}], ",", "0.25`", ",", "0.5`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.711750753312162*^9, 3.71175085329854*^9, {3.711750998077505*^9, 
   3.7117510203039913`*^9}, 3.711751237541688*^9, 3.711751867203916*^9, 
   3.711752049318541*^9, 3.711752970202773*^9, 3.711753091573121*^9, 
   3.711755121857594*^9, 3.711755218171565*^9, 3.711758250255991*^9, 
   3.711758392874607*^9, 3.7117585201301537`*^9, 3.711758613127667*^9, {
   3.711758788094839*^9, 3.7117588248424377`*^9}, 3.711758880942863*^9, 
   3.711759186618395*^9, 3.7117593211140337`*^9, 3.711759454855549*^9, 
   3.711761943269946*^9, 3.7117621919854527`*^9, 3.711762343414858*^9, 
   3.711964178552821*^9, 3.71526544498556*^9, 3.715265627703618*^9, 
   3.715274373656166*^9, 3.715274424943695*^9, 3.7152807668338633`*^9, 
   3.715281707149378*^9, 3.715282707212175*^9, 3.7152835302051897`*^9, 
   3.715283595314896*^9, 3.7152837406075783`*^9, 3.715283858252084*^9, {
   3.7152839115564117`*^9, 3.715283931533348*^9}, {3.715283990154612*^9, 
   3.715284002599141*^9}, 3.715284281116517*^9, 3.715284473566259*^9, 
   3.7152845920705843`*^9, {3.71528469135455*^9, 3.715284696807341*^9}, 
   3.715287594841958*^9, 3.715287780729135*^9, {3.7152884180131598`*^9, 
   3.715288422106633*^9}, 3.715288521627469*^9, 3.7337034573167686`*^9, 
   3.733703558250103*^9, 3.733764837222349*^9, {3.8369907090333757`*^9, 
   3.836990717172082*^9}},
 CellLabel->
  "Out[163]=",ExpressionUUID->"2145a05b-b446-443c-9247-379c2aa9d4a6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Probability of Adjustment, before vs. after loss.\>\"", ",", " ", 
      "Blue"}], "]"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Clear", "[", 
    RowBox[{
    "\[Sigma]", ",", "\[Alpha]", ",", "\[Rho]", ",", "xm", ",", "\[Delta]", 
     ",", "b", ",", "\[CapitalDelta]", ",", "yrm", ",", " ", "sv", ",", " ", 
     "sd", ",", " ", "t"}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<\\nGraph of platform moves as a function of \[Sigma] (R \
incumbent)\>\"", ",", "Blue"}], "]"}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"\"\<Number of data points for graph is \>\"", ",", " ", 
      RowBox[{"datapoints", "=", "13908"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Initialize", " ", "the", " ", "data"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"RRwext", " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", " ", "datapoints"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"RRlext", " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", " ", "datapoints"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"RLwext", " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", " ", "datapoints"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"RLlext", " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", " ", "datapoints"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"LRwext", " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", " ", "datapoints"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"LRlext", " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", " ", "datapoints"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"LLwext", " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", " ", "datapoints"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"LLlext", " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", " ", "datapoints"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"RPrRev", " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", " ", "datapoints"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"LPrRev", " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", " ", "datapoints"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"RRincWadj", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", "datapoints"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"RRincLadj", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", "datapoints"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"RLincWadj", " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", "datapoints"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"RLincLadj", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", "datapoints"}], "]"}]}], ";"}], "\[IndentingNewLine]",
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"LRincWadj", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", "datapoints"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"LRincLadj", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", "datapoints"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"LLincWadj", " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", "datapoints"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"LLincLadj", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", "datapoints"}], "]"}]}], ";"}], "\[IndentingNewLine]",
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Rprobvic", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", "datapoints"}], "]"}]}], ";"}], "\[IndentingNewLine]",
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sd", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Alpha]", "=", "2.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"b", "=", ".65"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"yrm", " ", "=", " ", ".3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[CapitalDelta]", " ", "=", " ", 
     RowBox[{"2", " ", "yrm"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]", " ", "=", " ", ".5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Rho]", " ", "=", " ", ".5"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "13909"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"xm", "=", 
        RowBox[{
         RowBox[{"mat", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"\[Sigma]", " ", "=", " ", 
        RowBox[{
         RowBox[{"mat", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"sv", " ", "=", " ", 
        RowBox[{
         RowBox[{"mat", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", "3", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"pRmm", "=", 
        RowBox[{"PDF", "[", 
         RowBox[{
          RowBox[{"StationaryDistribution", "[", "\[ScriptCapitalP]", "]"}], 
          ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"pRem", "=", 
        RowBox[{"PDF", "[", 
         RowBox[{
          RowBox[{"StationaryDistribution", "[", "\[ScriptCapitalP]", "]"}], 
          ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"pRme", "=", 
        RowBox[{"PDF", "[", 
         RowBox[{
          RowBox[{"StationaryDistribution", "[", "\[ScriptCapitalP]", "]"}], 
          ",", "3"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"pRee", "=", 
        RowBox[{"PDF", "[", 
         RowBox[{
          RowBox[{"StationaryDistribution", "[", "\[ScriptCapitalP]", "]"}], 
          ",", "4"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"pLmm", "=", 
        RowBox[{"PDF", "[", 
         RowBox[{
          RowBox[{"StationaryDistribution", "[", "\[ScriptCapitalP]", "]"}], 
          ",", "5"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"pLem", "=", 
        RowBox[{"PDF", "[", 
         RowBox[{
          RowBox[{"StationaryDistribution", "[", "\[ScriptCapitalP]", "]"}], 
          ",", "6"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"pLme", "=", 
        RowBox[{"PDF", "[", 
         RowBox[{
          RowBox[{"StationaryDistribution", "[", "\[ScriptCapitalP]", "]"}], 
          ",", "7"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"pLee", "=", 
        RowBox[{"PDF", "[", 
         RowBox[{
          RowBox[{"StationaryDistribution", "[", "\[ScriptCapitalP]", "]"}], 
          ",", "8"}], "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"t", "[", "1", "]"}], "=", 
        RowBox[{"Simplify", "[", "pRmm", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"t", "[", "2", "]"}], "=", 
        RowBox[{"Simplify", "[", "pRem", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"t", "[", "3", "]"}], "=", 
        RowBox[{"Simplify", "[", "pRme", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"t", "[", "4", "]"}], "=", 
        RowBox[{"Simplify", "[", "pRee", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"t", "[", "5", "]"}], "=", " ", 
        RowBox[{"Simplify", "[", "pLmm", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"t", "[", "6", "]"}], "=", 
        RowBox[{"Simplify", "[", "pLem", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"t", "[", "7", "]"}], "=", 
        RowBox[{"Simplify", "[", "pLme", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"t", "[", "8", "]"}], "=", 
        RowBox[{"Simplify", "[", "pLee", "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"Probability", " ", "of", " ", "Running", " ", "Extreme"}], 
        " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"RRwext", "[", 
         RowBox[{"[", "i", "]"}], "]"}], " ", "=", 
        RowBox[{
         RowBox[{"Rwinext", "[", "1", "]"}], " ", "+", " ", 
         RowBox[{"Rwinext", "[", "2", "]"}], " ", "+", " ", 
         RowBox[{"Rwinext", "[", "3", "]"}], " ", "+", " ", 
         RowBox[{"Rwinext", "[", "4", "]"}]}]}], ";", 
       RowBox[{
        RowBox[{"RRlext", "[", 
         RowBox[{"[", "i", "]"}], "]"}], " ", "=", 
        RowBox[{
         RowBox[{"Rloseext", "[", "1", "]"}], " ", "+", " ", 
         RowBox[{"Rloseext", "[", "2", "]"}], " ", "+", " ", 
         RowBox[{"Rloseext", "[", "3", "]"}], " ", "+", " ", 
         RowBox[{"Rloseext", "[", "4", "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"RLwext", "[", 
         RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", 
        RowBox[{
         RowBox[{"Rwinext", "[", "5", "]"}], " ", "+", " ", 
         RowBox[{"Rwinext", "[", "6", "]"}], " ", "+", " ", 
         RowBox[{"Rwinext", "[", "7", "]"}], " ", "+", " ", 
         RowBox[{"Rwinext", "[", "8", "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"RLlext", "[", 
         RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", 
        RowBox[{
         RowBox[{"Rloseext", "[", "5", "]"}], " ", "+", " ", 
         RowBox[{"Rloseext", "[", "6", "]"}], " ", "+", " ", 
         RowBox[{"Rloseext", "[", "7", "]"}], " ", "+", " ", 
         RowBox[{"Rloseext", "[", "8", "]"}]}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"LRwext", "[", 
         RowBox[{"[", "i", "]"}], "]"}], " ", "=", 
        RowBox[{
         RowBox[{"Lwinext", "[", "1", "]"}], " ", "+", " ", 
         RowBox[{"Lwinext", "[", "2", "]"}], " ", "+", " ", 
         RowBox[{"Lwinext", "[", "3", "]"}], " ", "+", " ", 
         RowBox[{"Lwinext", "[", "4", "]"}]}]}], ";", 
       RowBox[{
        RowBox[{"LRlext", "[", 
         RowBox[{"[", "i", "]"}], "]"}], " ", "=", 
        RowBox[{
         RowBox[{"Lloseext", "[", "1", "]"}], " ", "+", " ", 
         RowBox[{"Lloseext", "[", "2", "]"}], " ", "+", " ", 
         RowBox[{"Rloseext", "[", "3", "]"}], " ", "+", " ", 
         RowBox[{"Rloseext", "[", "4", "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"LLwext", "[", 
         RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", 
        RowBox[{
         RowBox[{"Lwinext", "[", "5", "]"}], " ", "+", " ", 
         RowBox[{"Lwinext", "[", "6", "]"}], " ", "+", " ", 
         RowBox[{"Lwinext", "[", "7", "]"}], " ", "+", " ", 
         RowBox[{"Lwinext", "[", "8", "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"LLlext", "[", 
         RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", 
        RowBox[{
         RowBox[{"Lloseext", "[", "5", "]"}], " ", "+", " ", 
         RowBox[{"Lloseext", "[", "6", "]"}], " ", "+", " ", 
         RowBox[{"Lloseext", "[", "7", "]"}], " ", "+", " ", 
         RowBox[{"Lloseext", "[", "8", "]"}]}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
        "Probability", " ", "of", " ", "L", " ", "Running", " ", "Extreme"}], 
        " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"Probability", " ", "of", " ", "Reversal"}], " ", "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"RPrRev", "[", 
         RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"prRmem", "[", 
            RowBox[{"1", ",", "6"}], "]"}], " ", "+", " ", 
           RowBox[{"prRmem", "[", 
            RowBox[{"1", ",", " ", "8"}], "]"}], " ", "+", " ", 
           RowBox[{"prRmem", "[", 
            RowBox[{"3", ",", "6"}], "]"}], " ", "+", " ", 
           RowBox[{"prRmem", "[", 
            RowBox[{"3", ",", "8"}], "]"}], " ", "+", " ", 
           RowBox[{"prReme", "[", 
            RowBox[{"2", ",", " ", "5"}], "]"}], " ", "+", " ", 
           RowBox[{"prReme", "[", 
            RowBox[{"2", ",", " ", "7"}], "]"}], " ", "+", " ", 
           RowBox[{"prReme", "[", 
            RowBox[{"4", ",", "5"}], "]"}], " ", "+", " ", 
           RowBox[{"prReme", "[", 
            RowBox[{"4", ",", "7"}], "]"}]}], ")"}], "-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"prRmem", "[", 
            RowBox[{"1", ",", "2"}], "]"}], " ", "+", " ", 
           RowBox[{"prRmem", "[", 
            RowBox[{"1", ",", " ", "4"}], "]"}], " ", "+", " ", 
           RowBox[{"prRmem", "[", 
            RowBox[{"3", ",", "2"}], "]"}], " ", "+", " ", 
           RowBox[{"prRmem", "[", 
            RowBox[{"3", ",", "4"}], "]"}], " ", "+", " ", 
           RowBox[{"prReme", "[", 
            RowBox[{"2", ",", " ", "1"}], "]"}], " ", "+", " ", 
           RowBox[{"prReme", "[", 
            RowBox[{"2", ",", " ", "3"}], "]"}], " ", "+", " ", 
           RowBox[{"prReme", "[", 
            RowBox[{"4", ",", "1"}], "]"}], " ", "+", " ", 
           RowBox[{"prReme", "[", 
            RowBox[{"4", ",", "3"}], "]"}]}], ")"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", " ", 
       RowBox[{
        RowBox[{"LPrRev", "[", 
         RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", 
        RowBox[{
         RowBox[{"prLmem", "[", 
          RowBox[{"5", ",", " ", "3"}], "]"}], " ", "+", 
         RowBox[{"prLmem", "[", 
          RowBox[{"5", ",", " ", "4"}], "]"}], " ", "+", " ", 
         RowBox[{"prLmem", "[", 
          RowBox[{"6", ",", " ", "3"}], "]"}], " ", "+", " ", 
         RowBox[{"prLmem", "[", 
          RowBox[{"6", ",", " ", "4"}], "]"}], " ", "+", " ", 
         RowBox[{"prLeme", "[", 
          RowBox[{"7", ",", " ", "1"}], "]"}], " ", "+", " ", 
         RowBox[{"prLeme", "[", 
          RowBox[{"7", ",", "2"}], "]"}], " ", "+", 
         RowBox[{"prLeme", "[", 
          RowBox[{"8", ",", " ", "1"}], "]"}], "+", 
         RowBox[{"prLeme", "[", 
          RowBox[{"8", ",", "2"}], "]"}], "-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"prLmem", "[", 
            RowBox[{"5", ",", " ", "7"}], "]"}], " ", "+", 
           RowBox[{"prLmem", "[", 
            RowBox[{"5", ",", " ", "8"}], "]"}], " ", "+", " ", 
           RowBox[{"prLmem", "[", 
            RowBox[{"6", ",", " ", "7"}], "]"}], " ", "+", " ", 
           RowBox[{"prLmem", "[", 
            RowBox[{"6", ",", " ", "8"}], "]"}], " ", "+", " ", 
           RowBox[{"prLeme", "[", 
            RowBox[{"7", ",", " ", "5"}], "]"}], " ", "+", " ", 
           RowBox[{"prLeme", "[", 
            RowBox[{"7", ",", "6"}], "]"}], " ", "+", 
           RowBox[{"prLeme", "[", 
            RowBox[{"8", ",", " ", "5"}], "]"}], "+", 
           RowBox[{"prLeme", "[", 
            RowBox[{"8", ",", "6"}], "]"}]}], ")"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"Probability", " ", "of", " ", "adjustment"}], " ", "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"RRincWadj", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"Radjt2", "[", 
          RowBox[{"1", ",", "1"}], "]"}], " ", "+", " ", 
         RowBox[{"Radjt2", "[", 
          RowBox[{"2", ",", "1"}], "]"}], " ", "+", " ", 
         RowBox[{"Radjt2", "[", 
          RowBox[{"3", ",", "1"}], "]"}], " ", "+", " ", 
         RowBox[{"Radjt2", "[", 
          RowBox[{"4", ",", "1"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"RRincLadj", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"Radjt2", "[", 
          RowBox[{"1", ",", "5"}], "]"}], " ", "+", " ", 
         RowBox[{"Radjt2", "[", 
          RowBox[{"2", ",", "5"}], "]"}], " ", "+", " ", 
         RowBox[{"Radjt2", "[", 
          RowBox[{"3", ",", "5"}], "]"}], " ", "+", " ", 
         RowBox[{"Radjt2", "[", 
          RowBox[{"4", ",", "5"}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"RLincWadj", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"Radjt2", "[", 
          RowBox[{"5", ",", "1"}], "]"}], " ", "+", " ", 
         RowBox[{"Radjt2", "[", 
          RowBox[{"6", ",", "1"}], "]"}], " ", "+", " ", 
         RowBox[{"Radjt2", "[", 
          RowBox[{"7", ",", "1"}], "]"}], " ", "+", " ", 
         RowBox[{"Radjt2", "[", 
          RowBox[{"8", ",", "1"}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"RLincLadj", "[", 
         RowBox[{"[", "i", "]"}], "]"}], " ", "=", 
        RowBox[{
         RowBox[{"Radjt2", "[", 
          RowBox[{"5", ",", "5"}], "]"}], " ", "+", " ", 
         RowBox[{"Radjt2", "[", 
          RowBox[{"6", ",", "5"}], "]"}], " ", "+", " ", 
         RowBox[{"Radjt2", "[", 
          RowBox[{"7", ",", "5"}], "]"}], " ", "+", " ", 
         RowBox[{"Radjt2", "[", 
          RowBox[{"8", ",", "5"}], "]"}]}]}], " ", ";", "\[IndentingNewLine]",
        "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"LRincWadj", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"Ladjt2", "[", 
          RowBox[{"1", ",", "5"}], "]"}], " ", "+", " ", 
         RowBox[{"Ladjt2", "[", 
          RowBox[{"2", ",", "5"}], "]"}], " ", "+", " ", 
         RowBox[{"Ladjt2", "[", 
          RowBox[{"3", ",", "5"}], "]"}], " ", "+", " ", 
         RowBox[{"Ladjt2", "[", 
          RowBox[{"4", ",", "5"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"LRincLadj", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"Ladjt2", "[", 
          RowBox[{"1", ",", "1"}], "]"}], " ", "+", " ", 
         RowBox[{"Ladjt2", "[", 
          RowBox[{"2", ",", "1"}], "]"}], " ", "+", " ", 
         RowBox[{"Ladjt2", "[", 
          RowBox[{"3", ",", "1"}], "]"}], " ", "+", " ", 
         RowBox[{"Ladjt2", "[", 
          RowBox[{"4", ",", "1"}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"LLincWadj", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"Ladjt2", "[", 
          RowBox[{"5", ",", "5"}], "]"}], " ", "+", " ", 
         RowBox[{"Ladjt2", "[", 
          RowBox[{"6", ",", "5"}], "]"}], " ", "+", " ", 
         RowBox[{"Ladjt2", "[", 
          RowBox[{"7", ",", "5"}], "]"}], " ", "+", " ", 
         RowBox[{"Ladjt2", "[", 
          RowBox[{"8", ",", "5"}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"LLincLadj", "[", 
         RowBox[{"[", "i", "]"}], "]"}], " ", "=", 
        RowBox[{
         RowBox[{"Ladjt2", "[", 
          RowBox[{"5", ",", "1"}], "]"}], " ", "+", " ", 
         RowBox[{"Ladjt2", "[", 
          RowBox[{"6", ",", "1"}], "]"}], " ", "+", " ", 
         RowBox[{"Ladjt2", "[", 
          RowBox[{"7", ",", "1"}], "]"}], " ", "+", " ", 
         RowBox[{"Ladjt2", "[", 
          RowBox[{"8", ",", "1"}], "]"}]}]}], " ", ";", "\[IndentingNewLine]",
        "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Rprobvic", "[", 
         RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", 
        RowBox[{"TotProbRwin", "[", "1", "]"}]}], ";"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{
  3.711747919684351*^9, 3.711747952419693*^9, {3.711747991362756*^9, 
   3.711748060526861*^9}, {3.711748153851542*^9, 3.711748189603759*^9}, {
   3.7117482260221643`*^9, 3.711748270334703*^9}, 3.711748303131775*^9, 
   3.7117483532109623`*^9, {3.71174841558706*^9, 3.71174854166789*^9}, {
   3.711748575897994*^9, 3.71174860568006*^9}, {3.711748703152182*^9, 
   3.711748717710087*^9}, 3.711748759951584*^9, {3.71174881962856*^9, 
   3.711748855455823*^9}, {3.711749652251274*^9, 3.711749652705216*^9}, {
   3.71174968419492*^9, 3.711749686725088*^9}, {3.7117498855222597`*^9, 
   3.711749905571542*^9}, 3.71174999266016*^9, {3.711751025255123*^9, 
   3.7117510920501747`*^9}, {3.711751250203926*^9, 3.711751352547776*^9}, {
   3.711751741155982*^9, 3.711751752698533*^9}, {3.7117519808682623`*^9, 
   3.7117519826175623`*^9}, {3.711752056191299*^9, 3.71175205667931*^9}, {
   3.711752830460294*^9, 3.7117528414918013`*^9}, 3.7117529556410713`*^9, {
   3.711752995945166*^9, 3.711752996401431*^9}, {3.711753061402215*^9, 
   3.71175306158007*^9}, {3.711755077512013*^9, 3.7117550851460457`*^9}, {
   3.711755130887352*^9, 3.711755144323415*^9}, 3.7117551873249607`*^9, {
   3.711758265590415*^9, 3.711758267919359*^9}, {3.711758402715852*^9, 
   3.711758405637371*^9}, {3.711758548551585*^9, 3.7117585488124228`*^9}, {
   3.711758664840489*^9, 3.711758702961844*^9}, {3.711758748106441*^9, 
   3.71175875350112*^9}, {3.711758911470909*^9, 3.711758914964589*^9}, {
   3.711758950871522*^9, 3.7117589511403923`*^9}, 3.7117589851000338`*^9, {
   3.711759202088125*^9, 3.711759244246492*^9}, {3.711759328003602*^9, 
   3.711759362008781*^9}, {3.7117594601658993`*^9, 3.711759507529175*^9}, {
   3.711761797437181*^9, 3.7117617981591463`*^9}, {3.7117619958786173`*^9, 
   3.7117619961584253`*^9}, 3.7117620460112247`*^9, {3.7117622051204987`*^9, 
   3.711762205292974*^9}, {3.711762257579958*^9, 3.7117622576984043`*^9}, {
   3.71176234816323*^9, 3.7117623503665743`*^9}, {3.711964219123892*^9, 
   3.7119642286764593`*^9}, {3.7152620745030193`*^9, 3.715262107998966*^9}, {
   3.715262890145793*^9, 3.715263071392487*^9}, {3.71526310658818*^9, 
   3.715263269072825*^9}, 3.715263343711381*^9, {3.715263377937015*^9, 
   3.715263381913659*^9}, {3.715263412038581*^9, 3.715263597833839*^9}, {
   3.715263629557963*^9, 3.715263761077465*^9}, {3.715264858121407*^9, 
   3.715264890663343*^9}, {3.715265451487008*^9, 3.715265538537222*^9}, {
   3.715265876356979*^9, 3.715265877647902*^9}, {3.7152743144436398`*^9, 
   3.715274336908259*^9}, 3.715274377499358*^9, {3.715274481434444*^9, 
   3.7152744827942867`*^9}, 3.715281727901485*^9, {3.7152819948366423`*^9, 
   3.7152819949501953`*^9}, {3.715282714123551*^9, 3.715282717715356*^9}, {
   3.7152827621611013`*^9, 3.715282762706273*^9}, {3.715282793280549*^9, 
   3.715282805496477*^9}, {3.715283429676794*^9, 3.7152834832457743`*^9}, {
   3.715283808383932*^9, 3.715283829582026*^9}, {3.715283946315111*^9, 
   3.715283950917883*^9}, {3.7152842370538807`*^9, 3.715284237418844*^9}, {
   3.7152843648268623`*^9, 3.715284369589345*^9}, {3.715284401185087*^9, 
   3.715284406662567*^9}, {3.715284510838744*^9, 3.715284517323683*^9}, {
   3.715284758801302*^9, 3.715284772202588*^9}, {3.715287532527534*^9, 
   3.7152875510054703`*^9}, {3.7152876029853697`*^9, 3.715287622299675*^9}, {
   3.715287720308515*^9, 3.7152877404782763`*^9}, {3.71528779448332*^9, 
   3.7152877970567303`*^9}, {3.715288409154572*^9, 3.715288409932778*^9}, {
   3.733702995759097*^9, 3.733703005323037*^9}, {3.733703215932447*^9, 
   3.733703288167356*^9}, {3.733703467939416*^9, 3.733703533603612*^9}, {
   3.7337648438540983`*^9, 
   3.7337648494160643`*^9}},ExpressionUUID->"81fd6ec7-5a46-4bb1-a705-\
04e1bf7ce7d9"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Probability of Adjustment, before vs. after loss.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[0, 0, 1],
  FrontFaceColor->RGBColor[0, 0, 1],
  BackFaceColor->RGBColor[0, 0, 1],
  GraphicsColor->RGBColor[0, 0, 1],
  FontColor->RGBColor[0, 0, 1]]], "Print",
 CellChangeTimes->{
  3.71175844694097*^9, {3.711758530595748*^9, 3.711758552461378*^9}, 
   3.711758617290793*^9, 3.711758665941395*^9, 3.711758703615209*^9, 
   3.71175875616824*^9, 3.7117588924434566`*^9, 3.711758986453162*^9, {
   3.7117592050324306`*^9, 3.711759244845645*^9}, {3.7117593286321087`*^9, 
   3.7117593625027018`*^9}, 3.711759460846735*^9, {3.711759493708776*^9, 
   3.711759508396254*^9}, 3.711761798932551*^9, 3.711761947090418*^9, 
   3.71176199667533*^9, 3.711762072854617*^9, 3.711762205794785*^9, 
   3.711762258257134*^9, 3.711762351311408*^9, 3.7119642303891573`*^9, 
   3.7152655474375896`*^9, 3.715265629941834*^9, 3.715265712656001*^9, {
   3.715265764611294*^9, 3.715265786452649*^9}, 3.715265906034412*^9, 
   3.715274379318123*^9, 3.715274432065317*^9, 3.715274488451707*^9, 
   3.715280770763135*^9, 3.715281748205723*^9, 3.715281853407681*^9, 
   3.715281999771896*^9, {3.715282718622635*^9, 3.715282806764786*^9}, 
   3.71528354379644*^9, 3.715283860944194*^9, 3.7152839380204153`*^9, 
   3.7152840111780787`*^9, 3.7152842851975527`*^9, 3.715284407311607*^9, 
   3.715284479946961*^9, 3.715284596265524*^9, 3.715287622912142*^9, 
   3.715287723429193*^9, 3.71528779967416*^9, 3.715288428863739*^9, 
   3.7152885299814653`*^9, 3.733703519497518*^9, 3.733703562480002*^9, 
   3.7337648514164*^9},ExpressionUUID->"bf02c3b5-b0e3-4042-8e63-af61414b3f4b"],

Cell[BoxData[
 StyleBox["\<\"\\nGraph of platform moves as a function of \[Sigma] (R \
incumbent)\"\>",
  StripOnInput->False,
  LineColor->RGBColor[0, 0, 1],
  FrontFaceColor->RGBColor[0, 0, 1],
  BackFaceColor->RGBColor[0, 0, 1],
  GraphicsColor->RGBColor[0, 0, 1],
  FontColor->RGBColor[0, 0, 1]]], "Print",
 CellChangeTimes->{
  3.71175844694097*^9, {3.711758530595748*^9, 3.711758552461378*^9}, 
   3.711758617290793*^9, 3.711758665941395*^9, 3.711758703615209*^9, 
   3.71175875616824*^9, 3.7117588924434566`*^9, 3.711758986453162*^9, {
   3.7117592050324306`*^9, 3.711759244845645*^9}, {3.7117593286321087`*^9, 
   3.7117593625027018`*^9}, 3.711759460846735*^9, {3.711759493708776*^9, 
   3.711759508396254*^9}, 3.711761798932551*^9, 3.711761947090418*^9, 
   3.71176199667533*^9, 3.711762072854617*^9, 3.711762205794785*^9, 
   3.711762258257134*^9, 3.711762351311408*^9, 3.7119642303891573`*^9, 
   3.7152655474375896`*^9, 3.715265629941834*^9, 3.715265712656001*^9, {
   3.715265764611294*^9, 3.715265786452649*^9}, 3.715265906034412*^9, 
   3.715274379318123*^9, 3.715274432065317*^9, 3.715274488451707*^9, 
   3.715280770763135*^9, 3.715281748205723*^9, 3.715281853407681*^9, 
   3.715281999771896*^9, {3.715282718622635*^9, 3.715282806764786*^9}, 
   3.71528354379644*^9, 3.715283860944194*^9, 3.7152839380204153`*^9, 
   3.7152840111780787`*^9, 3.7152842851975527`*^9, 3.715284407311607*^9, 
   3.715284479946961*^9, 3.715284596265524*^9, 3.715287622912142*^9, 
   3.715287723429193*^9, 3.71528779967416*^9, 3.715288428863739*^9, 
   3.7152885299814653`*^9, 3.733703519497518*^9, 3.733703562480002*^9, 
   3.733764851430657*^9},ExpressionUUID->"a0207cdf-bef7-4ce2-9dba-\
630e6d3b7ebf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Number of data points for graph is \"\>", "\[InvisibleSpace]", 
   "13908"}],
  SequenceForm["Number of data points for graph is ", 13908],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.71175844694097*^9, {3.711758530595748*^9, 3.711758552461378*^9}, 
   3.711758617290793*^9, 3.711758665941395*^9, 3.711758703615209*^9, 
   3.71175875616824*^9, 3.7117588924434566`*^9, 3.711758986453162*^9, {
   3.7117592050324306`*^9, 3.711759244845645*^9}, {3.7117593286321087`*^9, 
   3.7117593625027018`*^9}, 3.711759460846735*^9, {3.711759493708776*^9, 
   3.711759508396254*^9}, 3.711761798932551*^9, 3.711761947090418*^9, 
   3.71176199667533*^9, 3.711762072854617*^9, 3.711762205794785*^9, 
   3.711762258257134*^9, 3.711762351311408*^9, 3.7119642303891573`*^9, 
   3.7152655474375896`*^9, 3.715265629941834*^9, 3.715265712656001*^9, {
   3.715265764611294*^9, 3.715265786452649*^9}, 3.715265906034412*^9, 
   3.715274379318123*^9, 3.715274432065317*^9, 3.715274488451707*^9, 
   3.715280770763135*^9, 3.715281748205723*^9, 3.715281853407681*^9, 
   3.715281999771896*^9, {3.715282718622635*^9, 3.715282806764786*^9}, 
   3.71528354379644*^9, 3.715283860944194*^9, 3.7152839380204153`*^9, 
   3.7152840111780787`*^9, 3.7152842851975527`*^9, 3.715284407311607*^9, 
   3.715284479946961*^9, 3.715284596265524*^9, 3.715287622912142*^9, 
   3.715287723429193*^9, 3.71528779967416*^9, 3.715288428863739*^9, 
   3.7152885299814653`*^9, 3.733703519497518*^9, 3.733703562480002*^9, 
   3.733764851444221*^9},ExpressionUUID->"f69882fc-3c21-4dce-81de-\
5c95666142c6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\</Data/siumlation_output.csv\>\"", ",", " ", 
    RowBox[{"Transpose", "[", 
     RowBox[{"{", 
      RowBox[{
      "RRwext", ",", " ", "RRlext", ",", " ", "RLwext", ",", " ", "RLlext", 
       ",", " ", "LRwext", ",", " ", "LRlext", ",", " ", "LLwext", ",", " ", 
       "LLlext", ",", " ", "RPrRev", ",", " ", "LPrRev", ",", "RRincWadj", 
       ",", " ", "RRincLadj", ",", " ", "RLincWadj", ",", " ", "RLincLadj", 
       ",", " ", "LRincWadj", ",", " ", "LRincLadj", ",", " ", "LLincWadj", 
       ",", " ", "LLincLadj", ",", " ", "Rprobvic"}], "}"}], "]"}]}], "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.73374093720889*^9, 3.733740955493053*^9}, {
   3.733740988208301*^9, 3.733740991632381*^9}, {3.733741175877857*^9, 
   3.733741178194687*^9}, 3.7337654969751673`*^9, {3.733828716635969*^9, 
   3.733828717018199*^9}, {3.836990487632168*^9, 3.836990491445107*^9}, {
   3.83699054566675*^9, 3.836990547151566*^9}, {3.836990725441383*^9, 
   3.836990727995219*^9}},ExpressionUUID->"46a6bc3c-81b4-4b5f-bfb8-\
8e6493a74d39"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.836990730380011*^9, 
  3.8369907303802423`*^9}},ExpressionUUID->"e1b99f99-a49e-49a6-a38d-\
a91bec0bdf32"]
}, Open  ]]
},
WindowSize->{1560, 1007},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (June 19, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"2ab64ffc-a9c9-4754-9b5d-7c36c8585487"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 24007, 489, 1856, "Input",ExpressionUUID->"52ee6967-31a2-49af-9a92-0b3acf1abdff"],
Cell[24590, 513, 3914, 55, 24, "Print",ExpressionUUID->"7e0dbb0c-59e1-4332-b26e-f272da7d1f60"],
Cell[28507, 570, 218, 4, 34, "Output",ExpressionUUID->"b496bdf6-cbaf-45cd-9885-70eb11b7bc49"],
Cell[CellGroupData[{
Cell[28750, 578, 4446, 67, 24, "Print",ExpressionUUID->"7ca03849-6d8f-4400-b888-7358165b04a5"],
Cell[33199, 647, 3966, 56, 24, "Print",ExpressionUUID->"483f5c9e-1daf-4763-975b-3afbad930255"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[37214, 709, 48647, 978, 1732, "Input",ExpressionUUID->"e7109589-fd8b-40e3-be3f-19aac958df8d"],
Cell[CellGroupData[{
Cell[85886, 1691, 5119, 77, 24, "Print",ExpressionUUID->"52fa2b3d-7c68-45d5-b95b-37b3712df83f"],
Cell[91008, 1770, 5125, 77, 24, "Print",ExpressionUUID->"b257db15-df48-4fa1-b901-323615ec7de5"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[96182, 1853, 7756, 196, 1018, "Input",ExpressionUUID->"788b70d3-d76b-473c-8c32-8f5cd08e49c8"],
Cell[CellGroupData[{
Cell[103963, 2053, 826, 17, 44, "Print",ExpressionUUID->"d21f5fb1-7d7d-4812-b7dd-a82d86953bc0"],
Cell[104792, 2072, 2235, 50, 62, "Print",ExpressionUUID->"2ab586f5-158f-4b9a-a243-065d0f53f1a0"],
Cell[107030, 2124, 2108, 47, 42, "Print",ExpressionUUID->"985d172b-e21e-4ca7-b8ca-f7e4bf0342d4"],
Cell[109141, 2173, 1007, 19, 24, "Print",ExpressionUUID->"b0ae7de4-0fff-4226-a3c6-4306c552bd4e"],
Cell[110151, 2194, 2921, 62, 63, "Print",ExpressionUUID->"d05a7eb3-40ea-44ec-9a45-2a365e184fc1"],
Cell[113075, 2258, 1141, 21, 24, "Print",ExpressionUUID->"17e0e136-092b-47be-a95a-665b7505a25b"],
Cell[114219, 2281, 1141, 21, 24, "Print",ExpressionUUID->"25de689c-385f-4cf1-bcf8-021694ee10e2"],
Cell[115363, 2304, 767, 15, 24, "Print",ExpressionUUID->"826c7c88-e262-4d4b-90b2-adc8256b5fb9"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[116179, 2325, 14599, 377, 1228, "Input",ExpressionUUID->"aabcda24-c2ee-4e63-8261-80ebfb6c4464"],
Cell[CellGroupData[{
Cell[130803, 2706, 974, 18, 24, "Print",ExpressionUUID->"08790340-434e-43a9-8bf9-772aaf813dc8"],
Cell[131780, 2726, 783, 12, 24, "Print",ExpressionUUID->"b5855896-176a-4451-9406-b95b28f2d974"],
Cell[132566, 2740, 735, 11, 24, "Print",ExpressionUUID->"97c1a343-2a12-4be2-8296-f6ca2e8f8594"],
Cell[133304, 2753, 983, 19, 44, "Print",ExpressionUUID->"f07c2cb0-c227-47d2-b9c5-410d9296cd7c"],
Cell[134290, 2774, 739, 11, 24, "Print",ExpressionUUID->"8962ada0-91d3-482c-b903-36662b16841f"],
Cell[135032, 2787, 731, 11, 24, "Print",ExpressionUUID->"1453f01b-4992-4475-ae88-9fef62122204"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[135812, 2804, 1320, 22, 115, "Input",ExpressionUUID->"d54667f8-85f3-4228-b429-77cd7bc61f5d"],
Cell[137135, 2828, 1500, 23, 24, "Print",ExpressionUUID->"89967bef-6f4a-4770-a176-5e12a4e67704"],
Cell[138638, 2853, 14542, 353, 163, "Output",ExpressionUUID->"b46a4a47-6b6a-4b42-b2a4-eabc77b66e74"],
Cell[153183, 3208, 1502, 24, 34, "Output",ExpressionUUID->"76387eb2-fbad-4bf7-844d-158528c5f91c"],
Cell[154688, 3234, 1538, 25, 34, "Output",ExpressionUUID->"2145a05b-b446-443c-9247-379c2aa9d4a6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[156263, 3264, 24232, 537, 2278, "Input",ExpressionUUID->"81fd6ec7-5a46-4bb1-a705-04e1bf7ce7d9"],
Cell[CellGroupData[{
Cell[180520, 3805, 1676, 27, 24, "Print",ExpressionUUID->"bf02c3b5-b0e3-4042-8e63-af61414b3f4b"],
Cell[182199, 3834, 1699, 29, 44, "Print",ExpressionUUID->"a0207cdf-bef7-4ce2-9dba-630e6d3b7ebf"],
Cell[183901, 3865, 1607, 26, 24, "Print",ExpressionUUID->"f69882fc-3c21-4dce-81de-5c95666142c6"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[185557, 3897, 1139, 20, 115, "Input",ExpressionUUID->"46a6bc3c-81b4-4b5f-bfb8-8e6493a74d39"],
Cell[186699, 3919, 154, 3, 30, InheritFromParent,ExpressionUUID->"e1b99f99-a49e-49a6-a38d-a91bec0bdf32"]
}, Open  ]]
}
]
*)

